CFA2 tests
Accounts
| Seed | Address | Public_key | Public_key_hash | Secret_key |
| 'Alice' | tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi | edpkuvNy6TuQ2z8o9wnoaTtTXkzQk7nhegCHfxBc4ecsd4qG71KYNG | tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi | edskRijgcXx8gzqkq7SCBbrb6aDZQMmP6dznCQWgU1Jr4qPfJT1yFq5A39ja9G4wahS8uWtBurZy14Hy7GZkQh7WnopJTKtCQG |
| 'admin' | tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 | edpkthtmpNV7DzPgvsU5ktVkfYbARpb2nzDbncU8mdbMeXGRhGTjN7 | tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 | edskRjPeZkNsmeJ8aAzs5vyXVhP7DVRvG6nM1ReNfjzkR3h6ykbf71mPxQyE5HU9FHrV3EdrY4GVCSBWhU44v6bnhQGrKM9Cs8 |
Contracts
Contract
New contract: KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1
Balance: 0.000000
Storage:
| Borrow_allowed | Mint_allowed | Redeem_allowed | Repay_borrow_allowed |
| True | True | True | True |
Code:
import smartpy as spclass Contract(sp.Contract):
def __init__(self):
self.init_type(sp.TRecord(borrow_allowed = sp.TBool, mint_allowed = sp.TBool, redeem_allowed = sp.TBool, repay_borrow_allowed = sp.TBool).layout((("borrow_allowed", "mint_allowed"), ("redeem_allowed", "repay_borrow_allowed"))))
self.init(borrow_allowed = True,
mint_allowed = True,
redeem_allowed = True,
repay_borrow_allowed = True)
mint_allowed = True,
redeem_allowed = True,
repay_borrow_allowed = True)
@sp.entry_point
def acceptGovernance(self, params):
def acceptGovernance(self, params):
sp.set_type(params, sp.TAddress)
@sp.entry_point
def borrowAllowed(self, params):
def borrowAllowed(self, params):
sp.set_type(params, sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))))
sp.verify(self.data.borrow_allowed)
sp.verify(self.data.borrow_allowed)
@sp.entry_point
def disableMarket(self, params):
def disableMarket(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def enterMarkets(self, params):
def enterMarkets(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def exitMarket(self, params):
def exitMarket(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def getHypoAccountLiquidity(self, params):
def getHypoAccountLiquidity(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def mintAllowed(self, params):
def mintAllowed(self, params):
sp.set_type(params, sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))))
sp.verify(self.data.mint_allowed)
sp.verify(self.data.mint_allowed)
@sp.entry_point
def redeemAllowed(self, params):
def redeemAllowed(self, params):
sp.set_type(params, sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))))
sp.verify(self.data.redeem_allowed)
sp.verify(self.data.redeem_allowed)
@sp.entry_point
def repayBorrowAllowed(self, params):
def repayBorrowAllowed(self, params):
sp.set_type(params, sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))))
sp.verify(self.data.repay_borrow_allowed)
sp.verify(self.data.repay_borrow_allowed)
@sp.entry_point
def setBorrowAllowed(self, params):
def setBorrowAllowed(self, params):
self.data.borrow_allowed = params
@sp.entry_point
def setBorrowPaused(self, params):
def setBorrowPaused(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def setCloseFactor(self, params):
def setCloseFactor(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def setCollateralFactor(self, params):
def setCollateralFactor(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def setLiquidationIncentive(self, params):
def setLiquidationIncentive(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def setLiquidityPeriodRelevance(self, params):
def setLiquidityPeriodRelevance(self, params):
sp.set_type(params, sp.TNat)
@sp.entry_point
def setMarketBorrowCap(self, params):
def setMarketBorrowCap(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def setMintAllowed(self, params):
def setMintAllowed(self, params):
self.data.mint_allowed = params
@sp.entry_point
def setMintPaused(self, params):
def setMintPaused(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def setPendingGovernance(self, params):
def setPendingGovernance(self, params):
sp.set_type(params, sp.TAddress)
@sp.entry_point
def setPriceOracle(self, params):
def setPriceOracle(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def setPricePeriodRelevance(self, params):
def setPricePeriodRelevance(self, params):
sp.set_type(params, sp.TNat)
@sp.entry_point
def setRedeemAllowed(self, params):
def setRedeemAllowed(self, params):
self.data.redeem_allowed = params
@sp.entry_point
def setRepayBorrowAllowed(self, params):
def setRepayBorrowAllowed(self, params):
self.data.repay_borrow_allowed = params
@sp.entry_point
def setTransferPaused(self, params):
def setTransferPaused(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def supportMarket(self, params):
def supportMarket(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def transferAllowed(self, params):
def transferAllowed(self, params):
sp.set_type(params, sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))))
@sp.entry_point
def updateAccountLiquidity(self, params):
def updateAccountLiquidity(self, params):
sp.set_type(params, sp.TAddress)
@sp.entry_point
def updateAssetPrice(self, params):
def updateAssetPrice(self, params):
sp.set_type(params, sp.TAddress)
Storage:
{borrow_allowed: sp.TBool;
mint_allowed: sp.TBool;
redeem_allowed: sp.TBool;
repay_borrow_allowed: sp.TBool;
}.layout((("borrow_allowed", "mint_allowed"), ("redeem_allowed", "repay_borrow_allowed")))
Entry points:
| acceptGovernance sp.TAddress| borrowAllowed
{
borrowAmount: sp.TNat;
borrower: sp.TAddress;
cToken: sp.TAddress;
}.layout(("cToken", ("borrower", "borrowAmount")))
| disableMarket
| enterMarkets
| exitMarket
| getHypoAccountLiquidity
| mintAllowed
{
cToken: sp.TAddress;
mintAmount: sp.TNat;
minter: sp.TAddress;
}.layout(("cToken", ("minter", "mintAmount")))
| redeemAllowed
{
cToken: sp.TAddress;
redeemAmount: sp.TNat;
redeemer: sp.TAddress;
}.layout(("cToken", ("redeemer", "redeemAmount")))
| repayBorrowAllowed
{
borrower: sp.TAddress;
cToken: sp.TAddress;
payer: sp.TAddress;
repayAmount: sp.TNat;
}.layout(("cToken", ("payer", ("borrower", "repayAmount"))))
| setBorrowAllowed sp.TBool
| setBorrowPaused
| setCloseFactor
| setCollateralFactor
| setLiquidationIncentive
| setLiquidityPeriodRelevance sp.TNat
| setMarketBorrowCap
| setMintAllowed sp.TBool
| setMintPaused
| setPendingGovernance sp.TAddress
| setPriceOracle
| setPricePeriodRelevance sp.TNat
| setRedeemAllowed sp.TBool
| setRepayBorrowAllowed sp.TBool
| setTransferPaused
| supportMarket
| transferAllowed
{
cToken: sp.TAddress;
dst: sp.TAddress;
src: sp.TAddress;
transferTokens: sp.TNat;
}.layout((("cToken", "src"), ("dst", "transferTokens")))
| updateAccountLiquidity sp.TAddress
| updateAssetPrice sp.TAddress
Generated Michelson:
Sizes
| Storage: | 14 Bytes | |
| Code: | 1962 Bytes |
Initial Storage
(Pair (Pair True True) (Pair True True))
Michelson Code
parameter (or (or (or (or (address %acceptGovernance) (or (pair %borrowAllowed (address %cToken) (pair (address %borrower) (nat %borrowAmount))) (unit %disableMarket))) (or (or (unit %enterMarkets) (unit %exitMarket)) (or (unit %getHypoAccountLiquidity) (pair %mintAllowed (address %cToken) (pair (address %minter) (nat %mintAmount)))))) (or (or (pair %redeemAllowed (address %cToken) (pair (address %redeemer) (nat %redeemAmount))) (or (pair %repayBorrowAllowed (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount)))) (bool %setBorrowAllowed))) (or (or (unit %setBorrowPaused) (unit %setCloseFactor)) (or (unit %setCollateralFactor) (unit %setLiquidationIncentive))))) (or (or (or (nat %setLiquidityPeriodRelevance) (or (unit %setMarketBorrowCap) (bool %setMintAllowed))) (or (or (unit %setMintPaused) (address %setPendingGovernance)) (or (unit %setPriceOracle) (nat %setPricePeriodRelevance)))) (or (or (bool %setRedeemAllowed) (or (bool %setRepayBorrowAllowed) (unit %setTransferPaused))) (or (or (unit %supportMarket) (pair %transferAllowed (pair (address %cToken) (address %src)) (pair (address %dst) (nat %transferTokens)))) (or (address %updateAccountLiquidity) (address %updateAssetPrice))))));
storage (pair (pair (bool %borrow_allowed) (bool %mint_allowed)) (pair (bool %redeem_allowed) (bool %repay_borrow_allowed)));
storage (pair (pair (bool %borrow_allowed) (bool %mint_allowed)) (pair (bool %redeem_allowed) (bool %repay_borrow_allowed)));
code
{
CAST (pair (or (or (or (or address (or (pair address (pair address nat)) unit)) (or (or unit unit) (or unit (pair address (pair address nat))))) (or (or (pair address (pair address nat)) (or (pair address (pair address (pair address nat))) bool)) (or (or unit unit) (or unit unit)))) (or (or (or nat (or unit bool)) (or (or unit address) (or unit nat))) (or (or bool (or bool unit)) (or (or unit (pair (pair address address) (pair address nat))) (or address address))))) (pair (pair bool bool) (pair bool bool))); # pair (or (or (or (or address (or (pair address (pair address nat)) unit)) (or (or unit unit) (or unit (pair address (pair address nat))))) (or (or (pair address (pair address nat)) (or (pair address (pair address (pair address nat))) bool)) (or (or unit unit) (or unit unit)))) (or (or (or nat (or unit bool)) (or (or unit address) (or unit nat))) (or (or bool (or bool unit)) (or (or unit (pair (pair address address) (pair address nat))) (or address address))))) (pair (pair bool bool) (pair bool bool))
UNPAIR; # or (or (or (or address (or (pair address (pair address nat)) unit)) (or (or unit unit) (or unit (pair address (pair address nat))))) (or (or (pair address (pair address nat)) (or (pair address (pair address (pair address nat))) bool)) (or (or unit unit) (or unit unit)))) (or (or (or nat (or unit bool)) (or (or unit address) (or unit nat))) (or (or bool (or bool unit)) (or (or unit (pair (pair address address) (pair address nat))) (or address address)))) : pair (pair bool bool) (pair bool bool)
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == acceptGovernance == # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == borrowAllowed ==
# sp.verify(self.data.borrow_allowed) # pair (pair bool bool) (pair bool bool)
DUP; # pair (pair bool bool) (pair bool bool) : pair (pair bool bool) (pair bool bool)
CAR; # pair bool bool : pair (pair bool bool) (pair bool bool)
CAR; # bool : pair (pair bool bool) (pair bool bool)
IF
{}
{
PUSH string "WrongCondition: self.data.borrow_allowed"; # string : pair (pair bool bool) (pair bool bool)
FAILWITH; # FAILED
}; # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == disableMarket == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == enterMarkets == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == exitMarket == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == getHypoAccountLiquidity == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == mintAllowed ==
# sp.verify(self.data.mint_allowed) # pair (pair bool bool) (pair bool bool)
DUP; # pair (pair bool bool) (pair bool bool) : pair (pair bool bool) (pair bool bool)
CAR; # pair bool bool : pair (pair bool bool) (pair bool bool)
CDR; # bool : pair (pair bool bool) (pair bool bool)
IF
{}
{
PUSH string "WrongCondition: self.data.mint_allowed"; # string : pair (pair bool bool) (pair bool bool)
FAILWITH; # FAILED
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == redeemAllowed ==
# sp.verify(self.data.redeem_allowed) # pair (pair bool bool) (pair bool bool)
DUP; # pair (pair bool bool) (pair bool bool) : pair (pair bool bool) (pair bool bool)
GET 3; # bool : pair (pair bool bool) (pair bool bool)
IF
{}
{
PUSH string "WrongCondition: self.data.redeem_allowed"; # string : pair (pair bool bool) (pair bool bool)
FAILWITH; # FAILED
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == repayBorrowAllowed ==
# sp.verify(self.data.repay_borrow_allowed) # pair (pair bool bool) (pair bool bool)
DUP; # pair (pair bool bool) (pair bool bool) : pair (pair bool bool) (pair bool bool)
GET 4; # bool : pair (pair bool bool) (pair bool bool)
IF
{}
{
PUSH string "WrongCondition: self.data.repay_borrow_allowed"; # string : pair (pair bool bool) (pair bool bool)
FAILWITH; # FAILED
}; # pair (pair bool bool) (pair bool bool)
}
{
SWAP; # pair (pair bool bool) (pair bool bool) : bool
# == setBorrowAllowed ==
# self.data.borrow_allowed = params # pair (pair bool bool) (pair bool bool) : bool
UNPAIR; # pair bool bool : pair bool bool : bool
CDR; # bool : pair bool bool : bool
DIG 2; # bool : bool : pair bool bool
PAIR; # pair bool bool : pair bool bool
PAIR; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setBorrowPaused == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setCloseFactor == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setCollateralFactor == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setLiquidationIncentive == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setLiquidityPeriodRelevance == # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setMarketBorrowCap == # pair (pair bool bool) (pair bool bool)
}
{
SWAP; # pair (pair bool bool) (pair bool bool) : bool
# == setMintAllowed ==
# self.data.mint_allowed = params # pair (pair bool bool) (pair bool bool) : bool
UNPAIR; # pair bool bool : pair bool bool : bool
CAR; # bool : pair bool bool : bool
DIG 2; # bool : bool : pair bool bool
SWAP; # bool : bool : pair bool bool
PAIR; # pair bool bool : pair bool bool
PAIR; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setMintPaused == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setPendingGovernance == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setPriceOracle == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setPricePeriodRelevance == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
# == setRedeemAllowed ==
# self.data.redeem_allowed = params # bool : pair (pair bool bool) (pair bool bool)
UPDATE 3; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
# == setRepayBorrowAllowed ==
# self.data.repay_borrow_allowed = params # bool : pair (pair bool bool) (pair bool bool)
UPDATE 4; # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setTransferPaused == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == supportMarket == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == transferAllowed == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == updateAccountLiquidity == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == updateAssetPrice == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
NIL operation; # list operation : pair (pair bool bool) (pair bool bool)
PAIR; # pair (list operation) (pair (pair bool bool) (pair bool bool))
};
{
CAST (pair (or (or (or (or address (or (pair address (pair address nat)) unit)) (or (or unit unit) (or unit (pair address (pair address nat))))) (or (or (pair address (pair address nat)) (or (pair address (pair address (pair address nat))) bool)) (or (or unit unit) (or unit unit)))) (or (or (or nat (or unit bool)) (or (or unit address) (or unit nat))) (or (or bool (or bool unit)) (or (or unit (pair (pair address address) (pair address nat))) (or address address))))) (pair (pair bool bool) (pair bool bool))); # pair (or (or (or (or address (or (pair address (pair address nat)) unit)) (or (or unit unit) (or unit (pair address (pair address nat))))) (or (or (pair address (pair address nat)) (or (pair address (pair address (pair address nat))) bool)) (or (or unit unit) (or unit unit)))) (or (or (or nat (or unit bool)) (or (or unit address) (or unit nat))) (or (or bool (or bool unit)) (or (or unit (pair (pair address address) (pair address nat))) (or address address))))) (pair (pair bool bool) (pair bool bool))
UNPAIR; # or (or (or (or address (or (pair address (pair address nat)) unit)) (or (or unit unit) (or unit (pair address (pair address nat))))) (or (or (pair address (pair address nat)) (or (pair address (pair address (pair address nat))) bool)) (or (or unit unit) (or unit unit)))) (or (or (or nat (or unit bool)) (or (or unit address) (or unit nat))) (or (or bool (or bool unit)) (or (or unit (pair (pair address address) (pair address nat))) (or address address)))) : pair (pair bool bool) (pair bool bool)
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == acceptGovernance == # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == borrowAllowed ==
# sp.verify(self.data.borrow_allowed) # pair (pair bool bool) (pair bool bool)
DUP; # pair (pair bool bool) (pair bool bool) : pair (pair bool bool) (pair bool bool)
CAR; # pair bool bool : pair (pair bool bool) (pair bool bool)
CAR; # bool : pair (pair bool bool) (pair bool bool)
IF
{}
{
PUSH string "WrongCondition: self.data.borrow_allowed"; # string : pair (pair bool bool) (pair bool bool)
FAILWITH; # FAILED
}; # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == disableMarket == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == enterMarkets == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == exitMarket == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == getHypoAccountLiquidity == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == mintAllowed ==
# sp.verify(self.data.mint_allowed) # pair (pair bool bool) (pair bool bool)
DUP; # pair (pair bool bool) (pair bool bool) : pair (pair bool bool) (pair bool bool)
CAR; # pair bool bool : pair (pair bool bool) (pair bool bool)
CDR; # bool : pair (pair bool bool) (pair bool bool)
IF
{}
{
PUSH string "WrongCondition: self.data.mint_allowed"; # string : pair (pair bool bool) (pair bool bool)
FAILWITH; # FAILED
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == redeemAllowed ==
# sp.verify(self.data.redeem_allowed) # pair (pair bool bool) (pair bool bool)
DUP; # pair (pair bool bool) (pair bool bool) : pair (pair bool bool) (pair bool bool)
GET 3; # bool : pair (pair bool bool) (pair bool bool)
IF
{}
{
PUSH string "WrongCondition: self.data.redeem_allowed"; # string : pair (pair bool bool) (pair bool bool)
FAILWITH; # FAILED
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == repayBorrowAllowed ==
# sp.verify(self.data.repay_borrow_allowed) # pair (pair bool bool) (pair bool bool)
DUP; # pair (pair bool bool) (pair bool bool) : pair (pair bool bool) (pair bool bool)
GET 4; # bool : pair (pair bool bool) (pair bool bool)
IF
{}
{
PUSH string "WrongCondition: self.data.repay_borrow_allowed"; # string : pair (pair bool bool) (pair bool bool)
FAILWITH; # FAILED
}; # pair (pair bool bool) (pair bool bool)
}
{
SWAP; # pair (pair bool bool) (pair bool bool) : bool
# == setBorrowAllowed ==
# self.data.borrow_allowed = params # pair (pair bool bool) (pair bool bool) : bool
UNPAIR; # pair bool bool : pair bool bool : bool
CDR; # bool : pair bool bool : bool
DIG 2; # bool : bool : pair bool bool
PAIR; # pair bool bool : pair bool bool
PAIR; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setBorrowPaused == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setCloseFactor == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setCollateralFactor == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setLiquidationIncentive == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setLiquidityPeriodRelevance == # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setMarketBorrowCap == # pair (pair bool bool) (pair bool bool)
}
{
SWAP; # pair (pair bool bool) (pair bool bool) : bool
# == setMintAllowed ==
# self.data.mint_allowed = params # pair (pair bool bool) (pair bool bool) : bool
UNPAIR; # pair bool bool : pair bool bool : bool
CAR; # bool : pair bool bool : bool
DIG 2; # bool : bool : pair bool bool
SWAP; # bool : bool : pair bool bool
PAIR; # pair bool bool : pair bool bool
PAIR; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setMintPaused == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setPendingGovernance == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setPriceOracle == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setPricePeriodRelevance == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
# == setRedeemAllowed ==
# self.data.redeem_allowed = params # bool : pair (pair bool bool) (pair bool bool)
UPDATE 3; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
# == setRepayBorrowAllowed ==
# self.data.repay_borrow_allowed = params # bool : pair (pair bool bool) (pair bool bool)
UPDATE 4; # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setTransferPaused == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == supportMarket == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == transferAllowed == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == updateAccountLiquidity == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == updateAssetPrice == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
NIL operation; # list operation : pair (pair bool bool) (pair bool bool)
PAIR; # pair (list operation) (pair (pair bool bool) (pair bool bool))
};
Initial Storage
{ "prim": "Pair", "args": [ { "prim": "Pair", "args": [ { "prim": "True" }, { "prim": "True" } ] }, { "prim": "Pair", "args": [ { "prim": "True" }, { "prim": "True" } ] } ] }
JSON Representation
[
{
"prim": "storage",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "bool", "annots": [ "%borrow_allowed" ] }, { "prim": "bool", "annots": [ "%mint_allowed" ] } ] },
{ "prim": "pair", "args": [ { "prim": "bool", "annots": [ "%redeem_allowed" ] }, { "prim": "bool", "annots": [ "%repay_borrow_allowed" ] } ] }
]
}
]
},
{
"prim": "parameter",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "address", "annots": [ "%acceptGovernance" ] },
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%cToken" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%borrower" ] }, { "prim": "nat", "annots": [ "%borrowAmount" ] } ] }
],
"annots": [ "%borrowAllowed" ]
},
{ "prim": "unit", "annots": [ "%disableMarket" ] }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%enterMarkets" ] }, { "prim": "unit", "annots": [ "%exitMarket" ] } ] },
{
"prim": "or",
"args": [
{ "prim": "unit", "annots": [ "%getHypoAccountLiquidity" ] },
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%cToken" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%minter" ] }, { "prim": "nat", "annots": [ "%mintAmount" ] } ] }
],
"annots": [ "%mintAllowed" ]
}
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%cToken" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%redeemer" ] }, { "prim": "nat", "annots": [ "%redeemAmount" ] } ] }
],
"annots": [ "%redeemAllowed" ]
},
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%cToken" ] },
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%payer" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%borrower" ] }, { "prim": "nat", "annots": [ "%repayAmount" ] } ] }
]
}
],
"annots": [ "%repayBorrowAllowed" ]
},
{ "prim": "bool", "annots": [ "%setBorrowAllowed" ] }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%setBorrowPaused" ] }, { "prim": "unit", "annots": [ "%setCloseFactor" ] } ] },
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%setCollateralFactor" ] }, { "prim": "unit", "annots": [ "%setLiquidationIncentive" ] } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "nat", "annots": [ "%setLiquidityPeriodRelevance" ] },
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%setMarketBorrowCap" ] }, { "prim": "bool", "annots": [ "%setMintAllowed" ] } ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%setMintPaused" ] }, { "prim": "address", "annots": [ "%setPendingGovernance" ] } ] },
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%setPriceOracle" ] }, { "prim": "nat", "annots": [ "%setPricePeriodRelevance" ] } ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "bool", "annots": [ "%setRedeemAllowed" ] },
{ "prim": "or", "args": [ { "prim": "bool", "annots": [ "%setRepayBorrowAllowed" ] }, { "prim": "unit", "annots": [ "%setTransferPaused" ] } ] }
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit", "annots": [ "%supportMarket" ] },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%cToken" ] }, { "prim": "address", "annots": [ "%src" ] } ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%dst" ] }, { "prim": "nat", "annots": [ "%transferTokens" ] } ] }
],
"annots": [ "%transferAllowed" ]
}
]
},
{ "prim": "or", "args": [ { "prim": "address", "annots": [ "%updateAccountLiquidity" ] }, { "prim": "address", "annots": [ "%updateAssetPrice" ] } ] }
]
}
]
}
]
}
]
}
]
},
{
"prim": "code",
"args": [
[
{
"prim": "CAST",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "address" },
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{ "prim": "unit" }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "unit" } ] },
{
"prim": "or",
"args": [
{ "prim": "unit" },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
},
{ "prim": "bool" }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "unit" } ] },
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "unit" } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "or", "args": [ { "prim": "unit" }, { "prim": "bool" } ] } ] },
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "address" } ] },
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "nat" } ] }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "bool" }, { "prim": "or", "args": [ { "prim": "bool" }, { "prim": "unit" } ] } ] },
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "address" } ] },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }
]
}
]
},
{ "prim": "or", "args": [ { "prim": "address" }, { "prim": "address" } ] }
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [ { "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "bool" } ] }, { "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "bool" } ] } ]
}
]
}
]
},
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" } ],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "WrongCondition: self.data.borrow_allowed" } ] },
{ "prim": "FAILWITH" }
]
]
}
],
[ { "prim": "DROP" } ]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" } ],
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "WrongCondition: self.data.mint_allowed" } ] }, { "prim": "FAILWITH" } ]
]
}
]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "WrongCondition: self.data.redeem_allowed" } ] }, { "prim": "FAILWITH" } ]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "WrongCondition: self.data.repay_borrow_allowed" } ] },
{ "prim": "FAILWITH" }
]
]
}
],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "PAIR" },
{ "prim": "PAIR" }
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" } ],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" }
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "UPDATE", "args": [ { "int": "3" } ] } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "UPDATE", "args": [ { "int": "4" } ] } ], [ { "prim": "DROP" } ] ] } ]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ]
]
}
]
]
}
]
]
}
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
}
]
{
"prim": "storage",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "bool", "annots": [ "%borrow_allowed" ] }, { "prim": "bool", "annots": [ "%mint_allowed" ] } ] },
{ "prim": "pair", "args": [ { "prim": "bool", "annots": [ "%redeem_allowed" ] }, { "prim": "bool", "annots": [ "%repay_borrow_allowed" ] } ] }
]
}
]
},
{
"prim": "parameter",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "address", "annots": [ "%acceptGovernance" ] },
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%cToken" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%borrower" ] }, { "prim": "nat", "annots": [ "%borrowAmount" ] } ] }
],
"annots": [ "%borrowAllowed" ]
},
{ "prim": "unit", "annots": [ "%disableMarket" ] }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%enterMarkets" ] }, { "prim": "unit", "annots": [ "%exitMarket" ] } ] },
{
"prim": "or",
"args": [
{ "prim": "unit", "annots": [ "%getHypoAccountLiquidity" ] },
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%cToken" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%minter" ] }, { "prim": "nat", "annots": [ "%mintAmount" ] } ] }
],
"annots": [ "%mintAllowed" ]
}
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%cToken" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%redeemer" ] }, { "prim": "nat", "annots": [ "%redeemAmount" ] } ] }
],
"annots": [ "%redeemAllowed" ]
},
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%cToken" ] },
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%payer" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%borrower" ] }, { "prim": "nat", "annots": [ "%repayAmount" ] } ] }
]
}
],
"annots": [ "%repayBorrowAllowed" ]
},
{ "prim": "bool", "annots": [ "%setBorrowAllowed" ] }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%setBorrowPaused" ] }, { "prim": "unit", "annots": [ "%setCloseFactor" ] } ] },
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%setCollateralFactor" ] }, { "prim": "unit", "annots": [ "%setLiquidationIncentive" ] } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "nat", "annots": [ "%setLiquidityPeriodRelevance" ] },
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%setMarketBorrowCap" ] }, { "prim": "bool", "annots": [ "%setMintAllowed" ] } ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%setMintPaused" ] }, { "prim": "address", "annots": [ "%setPendingGovernance" ] } ] },
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%setPriceOracle" ] }, { "prim": "nat", "annots": [ "%setPricePeriodRelevance" ] } ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "bool", "annots": [ "%setRedeemAllowed" ] },
{ "prim": "or", "args": [ { "prim": "bool", "annots": [ "%setRepayBorrowAllowed" ] }, { "prim": "unit", "annots": [ "%setTransferPaused" ] } ] }
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit", "annots": [ "%supportMarket" ] },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%cToken" ] }, { "prim": "address", "annots": [ "%src" ] } ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%dst" ] }, { "prim": "nat", "annots": [ "%transferTokens" ] } ] }
],
"annots": [ "%transferAllowed" ]
}
]
},
{ "prim": "or", "args": [ { "prim": "address", "annots": [ "%updateAccountLiquidity" ] }, { "prim": "address", "annots": [ "%updateAssetPrice" ] } ] }
]
}
]
}
]
}
]
}
]
},
{
"prim": "code",
"args": [
[
{
"prim": "CAST",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "address" },
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{ "prim": "unit" }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "unit" } ] },
{
"prim": "or",
"args": [
{ "prim": "unit" },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
},
{ "prim": "bool" }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "unit" } ] },
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "unit" } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "or", "args": [ { "prim": "unit" }, { "prim": "bool" } ] } ] },
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "address" } ] },
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "nat" } ] }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "bool" }, { "prim": "or", "args": [ { "prim": "bool" }, { "prim": "unit" } ] } ] },
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "address" } ] },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }
]
}
]
},
{ "prim": "or", "args": [ { "prim": "address" }, { "prim": "address" } ] }
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [ { "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "bool" } ] }, { "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "bool" } ] } ]
}
]
}
]
},
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" } ],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "WrongCondition: self.data.borrow_allowed" } ] },
{ "prim": "FAILWITH" }
]
]
}
],
[ { "prim": "DROP" } ]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" } ],
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "WrongCondition: self.data.mint_allowed" } ] }, { "prim": "FAILWITH" } ]
]
}
]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "WrongCondition: self.data.redeem_allowed" } ] }, { "prim": "FAILWITH" } ]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "WrongCondition: self.data.repay_borrow_allowed" } ] },
{ "prim": "FAILWITH" }
]
]
}
],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "PAIR" },
{ "prim": "PAIR" }
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" } ],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" }
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "UPDATE", "args": [ { "int": "3" } ] } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "UPDATE", "args": [ { "int": "4" } ] } ], [ { "prim": "DROP" } ] ] } ]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ]
]
}
]
]
}
]
]
}
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
}
]
Contract
New contract: KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF
Balance: 0.000000
Storage:
| BorrowRate | SupplyRate |
Code:
import smartpy as spclass Contract(sp.Contract):
def __init__(self):
self.init_type(sp.TRecord(borrowRate = sp.TNat, supplyRate = sp.TNat).layout(("borrowRate", "supplyRate")))
self.init(borrowRate = 840000000000,
supplyRate = 180000000000)
supplyRate = 180000000000)
@sp.entry_point
def getBorrowRate(self, params):
def getBorrowRate(self, params):
sp.set_type(params, sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))))
sp.transfer(self.data.borrowRate, sp.tez(0), params.cb)
sp.transfer(self.data.borrowRate, sp.tez(0), params.cb)
@sp.entry_point
def getSupplyRate(self, params):
def getSupplyRate(self, params):
sp.set_type(params, sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))))
sp.transfer(self.data.supplyRate, sp.tez(0), params.cb)
sp.transfer(self.data.supplyRate, sp.tez(0), params.cb)
@sp.entry_point
def setBorrowRate(self, params):
def setBorrowRate(self, params):
sp.set_type(params, sp.TNat)
self.data.borrowRate = params
self.data.borrowRate = params
@sp.entry_point
def setSupplyRate(self, params):
def setSupplyRate(self, params):
sp.set_type(params, sp.TNat)
self.data.supplyRate = params
self.data.supplyRate = params
Storage:
{borrowRate: sp.TNat;
supplyRate: sp.TNat;
}.layout(("borrowRate", "supplyRate"))
Entry points:
| getBorrowRate{
borrows: sp.TNat;
cash: sp.TNat;
cb: sp.TContract(sp.TNat);
reserves: sp.TNat;
}.layout((("borrows", "cash"), ("cb", "reserves")))
| getSupplyRate
{
borrows: sp.TNat;
cash: sp.TNat;
cb: sp.TContract(sp.TNat);
reserves: sp.TNat;
}.layout((("borrows", "cash"), ("cb", "reserves")))
| setBorrowRate sp.TNat
| setSupplyRate sp.TNat
Generated Michelson:
Sizes
| Storage: | 16 Bytes | |
| Code: | 404 Bytes |
Initial Storage
(Pair 840000000000 180000000000)
Michelson Code
parameter (or (or (pair %getBorrowRate (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))) (pair %getSupplyRate (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves)))) (or (nat %setBorrowRate) (nat %setSupplyRate)));
storage (pair (nat %borrowRate) (nat %supplyRate));
storage (pair (nat %borrowRate) (nat %supplyRate));
code
{
CAST (pair (or (or (pair (pair nat nat) (pair (contract nat) nat)) (pair (pair nat nat) (pair (contract nat) nat))) (or nat nat)) (pair nat nat)); # pair (or (or (pair (pair nat nat) (pair (contract nat) nat)) (pair (pair nat nat) (pair (contract nat) nat))) (or nat nat)) (pair nat nat)
UNPAIR; # or (or (pair (pair nat nat) (pair (contract nat) nat)) (pair (pair nat nat) (pair (contract nat) nat))) (or nat nat) : pair nat nat
IF_LEFT
{
IF_LEFT
{
# == getBorrowRate ==
# sp.transfer(self.data.borrowRate, sp.tez(0), params.cb) # pair (pair nat nat) (pair (contract nat) nat) : pair nat nat
GET 3; # contract nat : pair nat nat
NIL operation; # list operation : contract nat : pair nat nat
SWAP; # contract nat : list operation : pair nat nat
PUSH mutez 0; # mutez : contract nat : list operation : pair nat nat
DUP 4; # pair nat nat : mutez : contract nat : list operation : pair nat nat
CAR; # nat : mutez : contract nat : list operation : pair nat nat
TRANSFER_TOKENS; # operation : list operation : pair nat nat
CONS; # list operation : pair nat nat
}
{
# == getSupplyRate ==
# sp.transfer(self.data.supplyRate, sp.tez(0), params.cb) # pair (pair nat nat) (pair (contract nat) nat) : pair nat nat
GET 3; # contract nat : pair nat nat
NIL operation; # list operation : contract nat : pair nat nat
SWAP; # contract nat : list operation : pair nat nat
PUSH mutez 0; # mutez : contract nat : list operation : pair nat nat
DUP 4; # pair nat nat : mutez : contract nat : list operation : pair nat nat
CDR; # nat : mutez : contract nat : list operation : pair nat nat
TRANSFER_TOKENS; # operation : list operation : pair nat nat
CONS; # list operation : pair nat nat
}; # list operation : pair nat nat
}
{
IF_LEFT
{
# == setBorrowRate ==
# self.data.borrowRate = params # nat : pair nat nat
UPDATE 1; # pair nat nat
}
{
# == setSupplyRate ==
# self.data.supplyRate = params # nat : pair nat nat
UPDATE 2; # pair nat nat
}; # pair nat nat
NIL operation; # list operation : pair nat nat
}; # list operation : pair nat nat
PAIR; # pair (list operation) (pair nat nat)
};
{
CAST (pair (or (or (pair (pair nat nat) (pair (contract nat) nat)) (pair (pair nat nat) (pair (contract nat) nat))) (or nat nat)) (pair nat nat)); # pair (or (or (pair (pair nat nat) (pair (contract nat) nat)) (pair (pair nat nat) (pair (contract nat) nat))) (or nat nat)) (pair nat nat)
UNPAIR; # or (or (pair (pair nat nat) (pair (contract nat) nat)) (pair (pair nat nat) (pair (contract nat) nat))) (or nat nat) : pair nat nat
IF_LEFT
{
IF_LEFT
{
# == getBorrowRate ==
# sp.transfer(self.data.borrowRate, sp.tez(0), params.cb) # pair (pair nat nat) (pair (contract nat) nat) : pair nat nat
GET 3; # contract nat : pair nat nat
NIL operation; # list operation : contract nat : pair nat nat
SWAP; # contract nat : list operation : pair nat nat
PUSH mutez 0; # mutez : contract nat : list operation : pair nat nat
DUP 4; # pair nat nat : mutez : contract nat : list operation : pair nat nat
CAR; # nat : mutez : contract nat : list operation : pair nat nat
TRANSFER_TOKENS; # operation : list operation : pair nat nat
CONS; # list operation : pair nat nat
}
{
# == getSupplyRate ==
# sp.transfer(self.data.supplyRate, sp.tez(0), params.cb) # pair (pair nat nat) (pair (contract nat) nat) : pair nat nat
GET 3; # contract nat : pair nat nat
NIL operation; # list operation : contract nat : pair nat nat
SWAP; # contract nat : list operation : pair nat nat
PUSH mutez 0; # mutez : contract nat : list operation : pair nat nat
DUP 4; # pair nat nat : mutez : contract nat : list operation : pair nat nat
CDR; # nat : mutez : contract nat : list operation : pair nat nat
TRANSFER_TOKENS; # operation : list operation : pair nat nat
CONS; # list operation : pair nat nat
}; # list operation : pair nat nat
}
{
IF_LEFT
{
# == setBorrowRate ==
# self.data.borrowRate = params # nat : pair nat nat
UPDATE 1; # pair nat nat
}
{
# == setSupplyRate ==
# self.data.supplyRate = params # nat : pair nat nat
UPDATE 2; # pair nat nat
}; # pair nat nat
NIL operation; # list operation : pair nat nat
}; # list operation : pair nat nat
PAIR; # pair (list operation) (pair nat nat)
};
Initial Storage
{ "prim": "Pair", "args": [ { "int": "840000000000" }, { "int": "180000000000" } ] }
JSON Representation
[
{ "prim": "storage", "args": [ { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%borrowRate" ] }, { "prim": "nat", "annots": [ "%supplyRate" ] } ] } ] },
{
"prim": "parameter",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%borrows" ] }, { "prim": "nat", "annots": [ "%cash" ] } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ], "annots": [ "%cb" ] }, { "prim": "nat", "annots": [ "%reserves" ] } ] }
],
"annots": [ "%getBorrowRate" ]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%borrows" ] }, { "prim": "nat", "annots": [ "%cash" ] } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ], "annots": [ "%cb" ] }, { "prim": "nat", "annots": [ "%reserves" ] } ] }
],
"annots": [ "%getSupplyRate" ]
}
]
},
{ "prim": "or", "args": [ { "prim": "nat", "annots": [ "%setBorrowRate" ] }, { "prim": "nat", "annots": [ "%setSupplyRate" ] } ] }
]
}
]
},
{
"prim": "code",
"args": [
[
{
"prim": "CAST",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
]
},
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
},
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
}
]
},
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CDR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
],
[
{ "prim": "IF_LEFT", "args": [ [ { "prim": "UPDATE", "args": [ { "int": "1" } ] } ], [ { "prim": "UPDATE", "args": [ { "int": "2" } ] } ] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] }
]
]
},
{ "prim": "PAIR" }
]
]
}
]
{ "prim": "storage", "args": [ { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%borrowRate" ] }, { "prim": "nat", "annots": [ "%supplyRate" ] } ] } ] },
{
"prim": "parameter",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%borrows" ] }, { "prim": "nat", "annots": [ "%cash" ] } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ], "annots": [ "%cb" ] }, { "prim": "nat", "annots": [ "%reserves" ] } ] }
],
"annots": [ "%getBorrowRate" ]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%borrows" ] }, { "prim": "nat", "annots": [ "%cash" ] } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ], "annots": [ "%cb" ] }, { "prim": "nat", "annots": [ "%reserves" ] } ] }
],
"annots": [ "%getSupplyRate" ]
}
]
},
{ "prim": "or", "args": [ { "prim": "nat", "annots": [ "%setBorrowRate" ] }, { "prim": "nat", "annots": [ "%setSupplyRate" ] } ] }
]
}
]
},
{
"prim": "code",
"args": [
[
{
"prim": "CAST",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
]
},
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
},
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
}
]
},
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CDR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
],
[
{ "prim": "IF_LEFT", "args": [ [ { "prim": "UPDATE", "args": [ { "int": "1" } ] } ], [ { "prim": "UPDATE", "args": [ { "int": "2" } ] } ] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] }
]
]
},
{ "prim": "PAIR" }
]
]
}
]
Contract
New contract: KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H
Balance: 0.000000
Storage:
| Administrator | All_tokens | Ledger | Metadata | Operators | Paused | Token_metadata | Total_supply | |||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
|
|
| False |
|
|
Code:
import smartpy as spclass Contract(sp.Contract):
def __init__(self):
self.init_type(sp.TRecord(administrator = sp.TAddress, all_tokens = sp.TNat, ledger = sp.TMap(sp.TPair(sp.TAddress, sp.TNat), sp.TRecord(balance = sp.TNat).layout("balance")), metadata = sp.TBigMap(sp.TString, sp.TBytes), operators = sp.TMap(sp.TRecord(operator = sp.TAddress, owner = sp.TAddress, token_id = sp.TNat).layout(("owner", ("operator", "token_id"))), sp.TUnit), paused = sp.TBool, token_metadata = sp.TMap(sp.TNat, sp.TRecord(token_id = sp.TNat, token_info = sp.TMap(sp.TString, sp.TBytes)).layout(("token_id", "token_info"))), total_supply = sp.TMap(sp.TNat, sp.TNat)).layout(((("administrator", "all_tokens"), ("ledger", "metadata")), (("operators", "paused"), ("token_metadata", "total_supply")))))
self.init(administrator = sp.address('tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5'),
all_tokens = 0,
ledger = {},
metadata = {'' : sp.bytes('0x68747470733a2f2f6578616d706c652e636f6d')},
operators = {},
paused = False,
token_metadata = {},
total_supply = {})
all_tokens = 0,
ledger = {},
metadata = {'' : sp.bytes('0x68747470733a2f2f6578616d706c652e636f6d')},
operators = {},
paused = False,
token_metadata = {},
total_supply = {})
@sp.entry_point
def balance_of(self, params):
def balance_of(self, params):
sp.verify(~ self.data.paused, 'FA2_PAUSED')
sp.set_type(params, sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")))
def f0(lparams_0):
sp.verify(self.data.token_metadata.contains(lparams_0.token_id), 'FA2_TOKEN_UNDEFINED')
sp.if self.data.ledger.contains((sp.set_type_expr(lparams_0.owner, sp.TAddress), sp.set_type_expr(lparams_0.token_id, sp.TNat))):
sp.result(sp.record(request = sp.record(owner = sp.set_type_expr(lparams_0.owner, sp.TAddress), token_id = sp.set_type_expr(lparams_0.token_id, sp.TNat)), balance = self.data.ledger[(sp.set_type_expr(lparams_0.owner, sp.TAddress), sp.set_type_expr(lparams_0.token_id, sp.TNat))].balance))
sp.else:
sp.result(sp.record(request = sp.record(owner = sp.set_type_expr(lparams_0.owner, sp.TAddress), token_id = sp.set_type_expr(lparams_0.token_id, sp.TNat)), balance = 0))
responses = sp.local("responses", params.requests.map(sp.build_lambda(f0)))
sp.transfer(responses.value, sp.tez(0), sp.set_type_expr(params.callback, sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance"))))))
sp.set_type(params, sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")))
def f0(lparams_0):
sp.verify(self.data.token_metadata.contains(lparams_0.token_id), 'FA2_TOKEN_UNDEFINED')
sp.if self.data.ledger.contains((sp.set_type_expr(lparams_0.owner, sp.TAddress), sp.set_type_expr(lparams_0.token_id, sp.TNat))):
sp.result(sp.record(request = sp.record(owner = sp.set_type_expr(lparams_0.owner, sp.TAddress), token_id = sp.set_type_expr(lparams_0.token_id, sp.TNat)), balance = self.data.ledger[(sp.set_type_expr(lparams_0.owner, sp.TAddress), sp.set_type_expr(lparams_0.token_id, sp.TNat))].balance))
sp.else:
sp.result(sp.record(request = sp.record(owner = sp.set_type_expr(lparams_0.owner, sp.TAddress), token_id = sp.set_type_expr(lparams_0.token_id, sp.TNat)), balance = 0))
responses = sp.local("responses", params.requests.map(sp.build_lambda(f0)))
sp.transfer(responses.value, sp.tez(0), sp.set_type_expr(params.callback, sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance"))))))
@sp.entry_point
def mint(self, params):
def mint(self, params):
sp.verify(sp.sender == self.data.administrator, 'FA2_NOT_ADMIN')
sp.verify(self.data.all_tokens == params.token_id, 'Token-IDs should be consecutive')
self.data.all_tokens = sp.max(self.data.all_tokens, params.token_id + 1)
sp.if self.data.ledger.contains((sp.set_type_expr(params.address, sp.TAddress), sp.set_type_expr(params.token_id, sp.TNat))):
self.data.ledger[(sp.set_type_expr(params.address, sp.TAddress), sp.set_type_expr(params.token_id, sp.TNat))].balance += params.amount
sp.else:
self.data.ledger[(sp.set_type_expr(params.address, sp.TAddress), sp.set_type_expr(params.token_id, sp.TNat))] = sp.record(balance = params.amount)
sp.if self.data.token_metadata.contains(params.token_id):
pass
sp.else:
self.data.token_metadata[params.token_id] = sp.record(token_id = params.token_id, token_info = params.metadata)
self.data.total_supply[params.token_id] = params.amount
sp.verify(self.data.all_tokens == params.token_id, 'Token-IDs should be consecutive')
self.data.all_tokens = sp.max(self.data.all_tokens, params.token_id + 1)
sp.if self.data.ledger.contains((sp.set_type_expr(params.address, sp.TAddress), sp.set_type_expr(params.token_id, sp.TNat))):
self.data.ledger[(sp.set_type_expr(params.address, sp.TAddress), sp.set_type_expr(params.token_id, sp.TNat))].balance += params.amount
sp.else:
self.data.ledger[(sp.set_type_expr(params.address, sp.TAddress), sp.set_type_expr(params.token_id, sp.TNat))] = sp.record(balance = params.amount)
sp.if self.data.token_metadata.contains(params.token_id):
pass
sp.else:
self.data.token_metadata[params.token_id] = sp.record(token_id = params.token_id, token_info = params.metadata)
self.data.total_supply[params.token_id] = params.amount
@sp.entry_point
def set_administrator(self, params):
def set_administrator(self, params):
sp.verify(sp.sender == self.data.administrator, 'FA2_NOT_ADMIN')
self.data.administrator = params
self.data.administrator = params
@sp.entry_point
def set_metadata(self, params):
def set_metadata(self, params):
sp.verify(sp.sender == self.data.administrator, 'FA2_NOT_ADMIN')
self.data.metadata[params.k] = params.v
self.data.metadata[params.k] = params.v
@sp.entry_point
def set_pause(self, params):
def set_pause(self, params):
sp.verify(sp.sender == self.data.administrator, 'FA2_NOT_ADMIN')
self.data.paused = params
self.data.paused = params
@sp.entry_point
def transfer(self, params):
def transfer(self, params):
sp.verify(~ self.data.paused, 'FA2_PAUSED')
sp.set_type(params, sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))))
sp.for transfer in params:
sp.for tx in transfer.txs:
sp.verify(((sp.sender == self.data.administrator) | (transfer.from_ == sp.sender)) | (self.data.operators.contains(sp.set_type_expr(sp.record(owner = transfer.from_, operator = sp.sender, token_id = tx.token_id), sp.TRecord(operator = sp.TAddress, owner = sp.TAddress, token_id = sp.TNat).layout(("owner", ("operator", "token_id")))))), 'FA2_NOT_OPERATOR')
sp.verify(self.data.token_metadata.contains(tx.token_id), 'FA2_TOKEN_UNDEFINED')
sp.if tx.amount > 0:
sp.verify(self.data.ledger[(sp.set_type_expr(transfer.from_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))].balance >= tx.amount, 'FA2_INSUFFICIENT_BALANCE')
self.data.ledger[(sp.set_type_expr(transfer.from_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))].balance = sp.as_nat(self.data.ledger[(sp.set_type_expr(transfer.from_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))].balance - tx.amount)
sp.if self.data.ledger.contains((sp.set_type_expr(tx.to_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))):
self.data.ledger[(sp.set_type_expr(tx.to_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))].balance += tx.amount
sp.else:
self.data.ledger[(sp.set_type_expr(tx.to_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))] = sp.record(balance = tx.amount)
sp.set_type(params, sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))))
sp.for transfer in params:
sp.for tx in transfer.txs:
sp.verify(((sp.sender == self.data.administrator) | (transfer.from_ == sp.sender)) | (self.data.operators.contains(sp.set_type_expr(sp.record(owner = transfer.from_, operator = sp.sender, token_id = tx.token_id), sp.TRecord(operator = sp.TAddress, owner = sp.TAddress, token_id = sp.TNat).layout(("owner", ("operator", "token_id")))))), 'FA2_NOT_OPERATOR')
sp.verify(self.data.token_metadata.contains(tx.token_id), 'FA2_TOKEN_UNDEFINED')
sp.if tx.amount > 0:
sp.verify(self.data.ledger[(sp.set_type_expr(transfer.from_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))].balance >= tx.amount, 'FA2_INSUFFICIENT_BALANCE')
self.data.ledger[(sp.set_type_expr(transfer.from_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))].balance = sp.as_nat(self.data.ledger[(sp.set_type_expr(transfer.from_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))].balance - tx.amount)
sp.if self.data.ledger.contains((sp.set_type_expr(tx.to_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))):
self.data.ledger[(sp.set_type_expr(tx.to_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))].balance += tx.amount
sp.else:
self.data.ledger[(sp.set_type_expr(tx.to_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))] = sp.record(balance = tx.amount)
@sp.entry_point
def update_operators(self, params):
def update_operators(self, params):
sp.set_type(params, sp.TList(sp.TVariant(add_operator = sp.TRecord(operator = sp.TAddress, owner = sp.TAddress, token_id = sp.TNat).layout(("owner", ("operator", "token_id"))), remove_operator = sp.TRecord(operator = sp.TAddress, owner = sp.TAddress, token_id = sp.TNat).layout(("owner", ("operator", "token_id")))).layout(("add_operator", "remove_operator"))))
sp.for update in params:
with update.match_cases() as arg:
with arg.match('add_operator') as add_operator:
sp.verify((add_operator.owner == sp.sender) | (sp.sender == self.data.administrator), 'FA2_NOT_ADMIN_OR_OPERATOR')
self.data.operators[sp.set_type_expr(sp.record(owner = add_operator.owner, operator = add_operator.operator, token_id = add_operator.token_id), sp.TRecord(operator = sp.TAddress, owner = sp.TAddress, token_id = sp.TNat).layout(("owner", ("operator", "token_id"))))] = sp.unit
with arg.match('remove_operator') as remove_operator:
sp.verify((remove_operator.owner == sp.sender) | (sp.sender == self.data.administrator), 'FA2_NOT_ADMIN_OR_OPERATOR')
del self.data.operators[sp.set_type_expr(sp.record(owner = remove_operator.owner, operator = remove_operator.operator, token_id = remove_operator.token_id), sp.TRecord(operator = sp.TAddress, owner = sp.TAddress, token_id = sp.TNat).layout(("owner", ("operator", "token_id"))))]
sp.for update in params:
with update.match_cases() as arg:
with arg.match('add_operator') as add_operator:
sp.verify((add_operator.owner == sp.sender) | (sp.sender == self.data.administrator), 'FA2_NOT_ADMIN_OR_OPERATOR')
self.data.operators[sp.set_type_expr(sp.record(owner = add_operator.owner, operator = add_operator.operator, token_id = add_operator.token_id), sp.TRecord(operator = sp.TAddress, owner = sp.TAddress, token_id = sp.TNat).layout(("owner", ("operator", "token_id"))))] = sp.unit
with arg.match('remove_operator') as remove_operator:
sp.verify((remove_operator.owner == sp.sender) | (sp.sender == self.data.administrator), 'FA2_NOT_ADMIN_OR_OPERATOR')
del self.data.operators[sp.set_type_expr(sp.record(owner = remove_operator.owner, operator = remove_operator.operator, token_id = remove_operator.token_id), sp.TRecord(operator = sp.TAddress, owner = sp.TAddress, token_id = sp.TNat).layout(("owner", ("operator", "token_id"))))]
Storage:
{administrator: sp.TAddress;
all_tokens: sp.TNat;
ledger: sp.TMap(sp.TPair(sp.TAddress, sp.TNat),
{
balance: sp.TNat;
}.layout("balance"));
metadata: sp.TBigMap(sp.TString, sp.TBytes);
operators: sp.TMap(
{
operator: sp.TAddress;
owner: sp.TAddress;
token_id: sp.TNat;
}.layout(("owner", ("operator", "token_id"))), sp.TUnit);
paused: sp.TBool;
token_metadata: sp.TMap(sp.TNat,
{
token_id: sp.TNat;
token_info: sp.TMap(sp.TString, sp.TBytes);
}.layout(("token_id", "token_info")));
total_supply: sp.TMap(sp.TNat, sp.TNat);
}.layout(((("administrator", "all_tokens"), ("ledger", "metadata")), (("operators", "paused"), ("token_metadata", "total_supply"))))
Entry points:
| balance_of{
callback: sp.TContract(sp.TList(
{
balance: sp.TNat;
request:
{
owner: sp.TAddress;
token_id: sp.TNat;
}.layout(("owner", "token_id"));
}.layout(("request", "balance"))));
requests: sp.TList(
{
owner: sp.TAddress;
token_id: sp.TNat;
}.layout(("owner", "token_id")));
}.layout(("requests", "callback"))
| mint
{
address: sp.TAddress;
amount: sp.TNat;
metadata: sp.TMap(sp.TString, sp.TBytes);
token_id: sp.TNat;
}.layout((("address", "amount"), ("metadata", "token_id")))
| set_administrator sp.TAddress
| set_metadata
{
k: sp.TString;
v: sp.TBytes;
}.layout(("k", "v"))
| set_pause sp.TBool
| transfer sp.TList(
{
from_: sp.TAddress;
txs: sp.TList(
{
amount: sp.TNat;
to_: sp.TAddress;
token_id: sp.TNat;
}.layout(("to_", ("token_id", "amount"))));
}.layout(("from_", "txs")))
| update_operators sp.TList(
| add_operator
{
operator: sp.TAddress;
owner: sp.TAddress;
token_id: sp.TNat;
}.layout(("owner", ("operator", "token_id")))
| remove_operator
{
operator: sp.TAddress;
owner: sp.TAddress;
token_id: sp.TNat;
}.layout(("owner", ("operator", "token_id"))))
Generated Michelson:
Sizes
| Storage: | 115 Bytes | |
| Big map originations (1): | 32 Bytes | |
| Code: | 3164 Bytes | |
| Combined: | 3311 Bytes |
Initial Storage
(Pair (Pair (Pair "tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5" 0) (Pair {} {Elt "" 0x68747470733a2f2f6578616d706c652e636f6d})) (Pair (Pair {} False) (Pair {} {})))
Michelson Code
parameter (or (or (pair %balance_of (list %requests (pair (address %owner) (nat %token_id))) (contract %callback (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))))) (or (pair %mint (pair (address %address) (nat %amount)) (pair (map %metadata string bytes) (nat %token_id))) (address %set_administrator))) (or (or (pair %set_metadata (string %k) (bytes %v)) (bool %set_pause)) (or (list %transfer (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) (list %update_operators (or (pair %add_operator (address %owner) (pair (address %operator) (nat %token_id))) (pair %remove_operator (address %owner) (pair (address %operator) (nat %token_id))))))));
storage (pair (pair (pair (address %administrator) (nat %all_tokens)) (pair (map %ledger (pair address nat) nat) (big_map %metadata string bytes))) (pair (pair (map %operators (pair (address %owner) (pair (address %operator) (nat %token_id))) unit) (bool %paused)) (pair (map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (map %total_supply nat nat))));
storage (pair (pair (pair (address %administrator) (nat %all_tokens)) (pair (map %ledger (pair address nat) nat) (big_map %metadata string bytes))) (pair (pair (map %operators (pair (address %owner) (pair (address %operator) (nat %token_id))) unit) (bool %paused)) (pair (map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (map %total_supply nat nat))));
code
{
CAST (pair (or (or (pair (list (pair address nat)) (contract (list (pair (pair address nat) nat)))) (or (pair (pair address nat) (pair (map string bytes) nat)) address)) (or (or (pair string bytes) bool) (or (list (pair address (list (pair address (pair nat nat))))) (list (or (pair address (pair address nat)) (pair address (pair address nat))))))) (pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))))); # pair (or (or (pair (list (pair address nat)) (contract (list (pair (pair address nat) nat)))) (or (pair (pair address nat) (pair (map string bytes) nat)) address)) (or (or (pair string bytes) bool) (or (list (pair address (list (pair address (pair nat nat))))) (list (or (pair address (pair address nat)) (pair address (pair address nat))))))) (pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))))
UNPAIR; # or (or (pair (list (pair address nat)) (contract (list (pair (pair address nat) nat)))) (or (pair (pair address nat) (pair (map string bytes) nat)) address)) (or (or (pair string bytes) bool) (or (list (pair address (list (pair address (pair nat nat))))) (list (or (pair address (pair address nat)) (pair address (pair address nat)))))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF_LEFT
{
IF_LEFT
{
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat)))
# == balance_of ==
# sp.verify(~ self.data.paused, 'FA2_PAUSED') # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat)))
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat)))
DUG 2; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # pair (map (pair address (pair address nat)) unit) bool : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CDR; # bool : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{
PUSH string "FA2_PAUSED"; # string : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}
{}; # pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
# def f0(lparams_0):
# sp.verify(self.data.token_metadata.contains(lparams_0.token_id), 'FA2_TOKEN_UNDEFINED')
# sp.if self.data.ledger.contains((sp.set_type_expr(lparams_0.owner, sp.TAddress), sp.set_type_expr(lparams_0.token_id, sp.TNat))):
# sp.result(sp.record(request = sp.record(owner = sp.set_type_expr(lparams_0.owner, sp.TAddress), token_id = sp.set_type_expr(lparams_0.token_id, sp.TNat)), balance = self.data.ledger[(sp.set_type_expr(lparams_0.owner, sp.TAddress), sp.set_type_expr(lparams_0.token_id, sp.TNat))].balance))
# sp.else:
# sp.result(sp.record(request = sp.record(owner = sp.set_type_expr(lparams_0.owner, sp.TAddress), token_id = sp.set_type_expr(lparams_0.token_id, sp.TNat)), balance = 0))
# responses = sp.local("responses", params.requests.map(sp.build_lambda(f0))) # pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # list (pair address nat) : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
MAP
{
# sp.verify(self.data.token_metadata.contains(lparams_0.token_id), 'FA2_TOKEN_UNDEFINED') # pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 3; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 5; # map nat (pair nat (map string bytes)) : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair address nat : map nat (pair nat (map string bytes)) : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address nat : pair address nat : map nat (pair nat (map string bytes)) : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUG 2; # pair address nat : map nat (pair nat (map string bytes)) : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CDR; # nat : map nat (pair nat (map string bytes)) : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
MEM; # bool : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{}
{
PUSH string "FA2_TOKEN_UNDEFINED"; # string : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}; # pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
# if self.data.ledger.contains((sp.set_type_expr(lparams_0.owner, sp.TAddress), sp.set_type_expr(lparams_0.token_id, sp.TNat))): # pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 3; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # map (pair address nat) nat : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair address nat : map (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address nat : pair address nat : map (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CDR; # nat : pair address nat : map (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair address nat : nat : map (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address nat : pair address nat : nat : map (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUG 3; # pair address nat : nat : map (pair address nat) nat : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : nat : map (pair address nat) nat : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PAIR; # pair address nat : map (pair address nat) nat : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
MEM; # bool : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{
# sp.result(sp.record(request = sp.record(owner = sp.set_type_expr(lparams_0.owner, sp.TAddress), token_id = sp.set_type_expr(lparams_0.token_id, sp.TNat)), balance = self.data.ledger[(sp.set_type_expr(lparams_0.owner, sp.TAddress), sp.set_type_expr(lparams_0.token_id, sp.TNat))].balance)) # pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 3; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # map (pair address nat) nat : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair address nat : map (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address nat : pair address nat : map (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CDR; # nat : pair address nat : map (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair address nat : nat : map (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address nat : pair address nat : nat : map (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUG 3; # pair address nat : nat : map (pair address nat) nat : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : nat : map (pair address nat) nat : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PAIR; # pair address nat : map (pair address nat) nat : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET; # option nat : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF_NONE
{
PUSH int 421; # int : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}
{
# of_some: Get-item:421 # @some : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # @some : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair address nat : @some : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PAIR; # pair (pair address nat) @some : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
# sp.result(sp.record(request = sp.record(owner = sp.set_type_expr(lparams_0.owner, sp.TAddress), token_id = sp.set_type_expr(lparams_0.token_id, sp.TNat)), balance = 0)) # pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PUSH nat 0; # nat : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair address nat : nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PAIR; # pair (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # pair (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # list (pair (pair address nat) nat) : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
# sp.transfer(responses.value, sp.tez(0), sp.set_type_expr(params.callback, sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))))) # list (pair (pair address nat) nat) : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
NIL operation; # list operation : list (pair (pair address nat) nat) : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DIG 2; # pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : list operation : list (pair (pair address nat) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CDR; # contract (list (pair (pair address nat) nat)) : list operation : list (pair (pair address nat) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PUSH mutez 0; # mutez : contract (list (pair (pair address nat) nat)) : list operation : list (pair (pair address nat) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DIG 3; # list (pair (pair address nat) nat) : mutez : contract (list (pair (pair address nat) nat)) : list operation : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CONS; # list operation : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
IF_LEFT
{
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
# == mint ==
# sp.verify(sp.sender == self.data.administrator, 'FA2_NOT_ADMIN') # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUG 2; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair address nat : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SENDER; # @sender : address : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
EQ; # bool : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{}
{
PUSH string "FA2_NOT_ADMIN"; # string : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
# sp.verify(self.data.all_tokens == params.token_id, 'Token-IDs should be consecutive') # pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 4; # nat : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 3; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : nat : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : nat : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair address nat : nat : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CDR; # nat : nat : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
EQ; # bool : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{}
{
PUSH string "Token-IDs should be consecutive"; # string : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
# self.data.all_tokens = sp.max(self.data.all_tokens, params.token_id + 1) # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUG 2; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
UNPAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
UNPAIR; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DIG 4; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
CAR; # pair address nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
CDR; # nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DUP; # nat : nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PUSH nat 1; # nat : nat : nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DUP 7; # pair (pair address nat) (pair (map string bytes) nat) : nat : nat : nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
GET 4; # nat : nat : nat : nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
ADD; # nat : nat : nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DUP; # nat : nat : nat : nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DUG 2; # nat : nat : nat : nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
COMPARE; # int : nat : nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
LE; # bool : nat : nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
IF
{
DROP; # nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
}
{
SWAP; # nat : nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DROP; # nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
}; # nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
SWAP; # address : nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
# if self.data.ledger.contains((sp.set_type_expr(params.address, sp.TAddress), sp.set_type_expr(params.token_id, sp.TNat))): # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUG 2; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # map (pair address nat) nat : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair (pair address nat) (pair (map string bytes) nat) : map (pair address nat) nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair address nat) (pair (map string bytes) nat) : map (pair address nat) nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 4; # nat : pair (pair address nat) (pair (map string bytes) nat) : map (pair address nat) nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair (pair address nat) (pair (map string bytes) nat) : nat : map (pair address nat) nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair address nat) (pair (map string bytes) nat) : nat : map (pair address nat) nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUG 3; # pair (pair address nat) (pair (map string bytes) nat) : nat : map (pair address nat) nat : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair address nat : nat : map (pair address nat) nat : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : nat : map (pair address nat) nat : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PAIR; # pair address nat : map (pair address nat) nat : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
MEM; # bool : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
# self.data.ledger[(sp.set_type_expr(params.address, sp.TAddress), sp.set_type_expr(params.token_id, sp.TNat))].balance += params.amount # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
UNPAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
UNPAIR; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
SWAP; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
UNPAIR; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DUP; # map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DIG 5; # pair (pair address nat) (pair (map string bytes) nat) : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
DUP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair address nat) (pair (map string bytes) nat) : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
GET 4; # nat : pair (pair address nat) (pair (map string bytes) nat) : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
SWAP; # pair (pair address nat) (pair (map string bytes) nat) : nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
DUP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair address nat) (pair (map string bytes) nat) : nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
DUG 7; # pair (pair address nat) (pair (map string bytes) nat) : nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
CAR; # pair address nat : nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
CAR; # address : nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair address nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DUP; # pair address nat : pair address nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DUG 2; # pair address nat : map (pair address nat) nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
GET; # option nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
IF_NONE
{
PUSH int 532; # int : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
FAILWITH; # FAILED
}
{}; # @some : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DUP 7; # pair (pair address nat) (pair (map string bytes) nat) : @some : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
CAR; # pair address nat : @some : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
CDR; # nat : @some : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
ADD; # nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
SOME; # option nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
SWAP; # pair address nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
UPDATE; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
SWAP; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
SWAP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
# self.data.ledger[(sp.set_type_expr(params.address, sp.TAddress), sp.set_type_expr(params.token_id, sp.TNat))] = sp.record(balance = params.amount) # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
UNPAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
UNPAIR; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
SWAP; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
UNPAIR; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DUP 5; # pair (pair address nat) (pair (map string bytes) nat) : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
CAR; # pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
CDR; # nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
SOME; # option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DIG 5; # pair (pair address nat) (pair (map string bytes) nat) : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
DUP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair address nat) (pair (map string bytes) nat) : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
GET 4; # nat : pair (pair address nat) (pair (map string bytes) nat) : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
SWAP; # pair (pair address nat) (pair (map string bytes) nat) : nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
DUP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair address nat) (pair (map string bytes) nat) : nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
DUG 7; # pair (pair address nat) (pair (map string bytes) nat) : nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
CAR; # pair address nat : nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
CAR; # address : nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair address nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
UPDATE; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
SWAP; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
SWAP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
# if self.data.token_metadata.contains(params.token_id): # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUG 2; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 5; # map nat (pair nat (map string bytes)) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair (pair address nat) (pair (map string bytes) nat) : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair address nat) (pair (map string bytes) nat) : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUG 2; # pair (pair address nat) (pair (map string bytes) nat) : map nat (pair nat (map string bytes)) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 4; # nat : map nat (pair nat (map string bytes)) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
MEM; # bool : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{
DROP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
# self.data.token_metadata[params.token_id] = sp.record(token_id = params.token_id, token_info = params.metadata) # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
GET 5; # map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DIG 2; # pair (pair address nat) (pair (map string bytes) nat) : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair address nat) (pair (map string bytes) nat) : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # map string bytes : pair (pair address nat) (pair (map string bytes) nat) : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair (pair address nat) (pair (map string bytes) nat) : map string bytes : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair address nat) (pair (map string bytes) nat) : map string bytes : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUG 4; # pair (pair address nat) (pair (map string bytes) nat) : map string bytes : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
GET 4; # nat : map string bytes : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair nat (map string bytes) : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
SOME; # option (pair nat (map string bytes)) : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUP 4; # pair (pair address nat) (pair (map string bytes) nat) : option (pair nat (map string bytes)) : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
GET 4; # nat : option (pair nat (map string bytes)) : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
UPDATE; # map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
UPDATE 5; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
# self.data.total_supply[params.token_id] = params.amount # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
GET 6; # map nat nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUP 3; # pair (pair address nat) (pair (map string bytes) nat) : map nat nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
CAR; # pair address nat : map nat nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
CDR; # nat : map nat nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
SOME; # option nat : map nat nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DIG 3; # pair (pair address nat) (pair (map string bytes) nat) : option nat : map nat nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 4; # nat : option nat : map nat nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
UPDATE; # map nat nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
UPDATE 6; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : address
# == set_administrator ==
# sp.verify(sp.sender == self.data.administrator, 'FA2_NOT_ADMIN') # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : address
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : address
DUG 2; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : address : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : address : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair address nat : address : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : address : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SENDER; # @sender : address : address : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : address : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
EQ; # bool : address : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{}
{
PUSH string "FA2_NOT_ADMIN"; # string : address : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}; # address : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : address
# self.data.administrator = params # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : address
UNPAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : address
UNPAIR; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : address
CDR; # nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : address
DIG 3; # address : nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
PAIR; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
PAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
PAIR; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
NIL operation; # list operation : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # list operation : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
IF_LEFT
{
IF_LEFT
{
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair string bytes
# == set_metadata ==
# sp.verify(sp.sender == self.data.administrator, 'FA2_NOT_ADMIN') # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair string bytes
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair string bytes
DUG 2; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair string bytes : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair string bytes : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair address nat : pair string bytes : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : pair string bytes : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SENDER; # @sender : address : pair string bytes : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : pair string bytes : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
EQ; # bool : pair string bytes : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{}
{
PUSH string "FA2_NOT_ADMIN"; # string : pair string bytes : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}; # pair string bytes : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair string bytes
# self.data.metadata[params.k] = params.v # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair string bytes
UNPAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair string bytes
UNPAIR; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair string bytes
SWAP; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair string bytes
UNPAIR; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair string bytes
SWAP; # big_map string bytes : map (pair address nat) nat : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair string bytes
DUP 5; # pair string bytes : big_map string bytes : map (pair address nat) nat : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair string bytes
CDR; # bytes : big_map string bytes : map (pair address nat) nat : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair string bytes
SOME; # option bytes : big_map string bytes : map (pair address nat) nat : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair string bytes
DIG 5; # pair string bytes : option bytes : big_map string bytes : map (pair address nat) nat : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
CAR; # string : option bytes : big_map string bytes : map (pair address nat) nat : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
UPDATE; # big_map string bytes : map (pair address nat) nat : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
SWAP; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
PAIR; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
SWAP; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
PAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
PAIR; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : bool
# == set_pause ==
# sp.verify(sp.sender == self.data.administrator, 'FA2_NOT_ADMIN') # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : bool
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : bool
DUG 2; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : bool : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : bool : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair address nat : bool : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : bool : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SENDER; # @sender : address : bool : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : bool : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
EQ; # bool : bool : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{}
{
PUSH string "FA2_NOT_ADMIN"; # string : bool : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}; # bool : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : bool
# self.data.paused = params # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : bool
UNPAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : bool
SWAP; # pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : bool
UNPAIR; # pair (map (pair address (pair address nat)) unit) bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : bool
CAR; # map (pair address (pair address nat)) unit : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : bool
DIG 3; # bool : map (pair address (pair address nat)) unit : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))
SWAP; # map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))
PAIR; # pair (map (pair address (pair address nat)) unit) bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))
PAIR; # pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))
SWAP; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
PAIR; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
IF_LEFT
{
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : list (pair address (list (pair address (pair nat nat))))
# == transfer ==
# sp.verify(~ self.data.paused, 'FA2_PAUSED') # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUG 2; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # pair (map (pair address (pair address nat)) unit) bool : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CDR; # bool : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{
PUSH string "FA2_PAUSED"; # string : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}
{}; # list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
# for transfer in params: ... # list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # list (pair address (list (pair address (pair nat nat)))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
ITER
{
# for tx in transfer.txs: ... # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address (list (pair address (pair nat nat))) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CDR; # list (pair address (pair nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
ITER
{
# sp.verify(((sp.sender == self.data.administrator) | (transfer.from_ == sp.sender)) | (self.data.operators.contains(sp.set_type_expr(sp.record(owner = transfer.from_, operator = sp.sender, token_id = tx.token_id), sp.TRecord(operator = sp.TAddress, owner = sp.TAddress, token_id = sp.TNat).layout(("owner", ("operator", "token_id")))))), 'FA2_NOT_OPERATOR') # pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 4; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair address nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SENDER; # @sender : address : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
EQ; # bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{
PUSH bool True; # bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
SENDER; # @sender : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 3; # pair address (list (pair address (pair nat nat))) : @sender : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : @sender : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
EQ; # bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{
PUSH bool True; # bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
DUP 4; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # pair (map (pair address (pair address nat)) unit) bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # map (pair address (pair address nat)) unit : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair address (pair nat nat) : map (pair address (pair address nat)) unit : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address (pair nat nat) : pair address (pair nat nat) : map (pair address (pair address nat)) unit : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUG 2; # pair address (pair nat nat) : map (pair address (pair address nat)) unit : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # nat : map (pair address (pair address nat)) unit : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SENDER; # @sender : nat : map (pair address (pair address nat)) unit : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 5; # pair address (list (pair address (pair nat nat))) : @sender : nat : map (pair address (pair address nat)) unit : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : @sender : nat : map (pair address (pair address nat)) unit : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PAIR 3; # pair address (pair @sender nat) : map (pair address (pair address nat)) unit : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
MEM; # bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{}
{
PUSH string "FA2_NOT_OPERATOR"; # string : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}; # pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
# sp.verify(self.data.token_metadata.contains(tx.token_id), 'FA2_TOKEN_UNDEFINED') # pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 4; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 5; # map nat (pair nat (map string bytes)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair address (pair nat nat) : map nat (pair nat (map string bytes)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address (pair nat nat) : pair address (pair nat nat) : map nat (pair nat (map string bytes)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUG 2; # pair address (pair nat nat) : map nat (pair nat (map string bytes)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # nat : map nat (pair nat (map string bytes)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
MEM; # bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{}
{
PUSH string "FA2_TOKEN_UNDEFINED"; # string : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}; # pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
# if tx.amount > 0: # pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address (pair nat nat) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 4; # nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PUSH nat 0; # nat : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
LT; # bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{
# sp.verify(self.data.ledger[(sp.set_type_expr(transfer.from_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))].balance >= tx.amount, 'FA2_INSUFFICIENT_BALANCE') # pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address (pair nat nat) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 4; # nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 5; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # map (pair address nat) nat : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 3; # pair address (pair nat nat) : map (pair address nat) nat : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # nat : map (pair address nat) nat : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 5; # pair address (list (pair address (pair nat nat))) : nat : map (pair address nat) nat : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : nat : map (pair address nat) nat : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PAIR; # pair address nat : map (pair address nat) nat : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET; # option nat : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF_NONE
{
PUSH int 400; # int : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}
{
# of_some: Get-item:400 # @some : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # @some : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GE; # bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{}
{
PUSH string "FA2_INSUFFICIENT_BALANCE"; # string : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}; # pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
# self.data.ledger[(sp.set_type_expr(transfer.from_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))].balance = sp.as_nat(self.data.ledger[(sp.set_type_expr(transfer.from_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))].balance - tx.amount) # pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 4; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
UNPAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
UNPAIR; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
UNPAIR; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 6; # pair address (pair nat nat) : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 8; # pair address (list (pair address (pair nat nat))) : nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PAIR; # pair address nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address nat : pair address nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUG 2; # pair address nat : map (pair address nat) nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET; # option nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF_NONE
{
PUSH int 403; # int : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}
{
DROP; # pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 6; # pair address (pair nat nat) : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 4; # nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DIG 9; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
GET 3; # map (pair address nat) nat : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUP 8; # pair address (pair nat nat) : map (pair address nat) nat : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
GET 3; # nat : map (pair address nat) nat : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUP 10; # pair address (list (pair address (pair nat nat))) : nat : map (pair address nat) nat : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
CAR; # address : nat : map (pair address nat) nat : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair address nat : map (pair address nat) nat : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
GET; # option nat : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
IF_NONE
{
PUSH int 404; # int : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:404 # @some : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
}; # @some : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SUB; # int : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
ISNAT; # option nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
IF_NONE
{
PUSH int 403; # int : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
FAILWITH; # FAILED
}
{}; # @some : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SOME; # option nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SWAP; # pair address nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
UPDATE; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SWAP; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
# if self.data.ledger.contains((sp.set_type_expr(tx.to_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))): # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUG 4; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # map (pair address nat) nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair address (pair nat nat) : map (pair address nat) nat : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address (pair nat nat) : pair address (pair nat nat) : map (pair address nat) nat : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # nat : pair address (pair nat nat) : map (pair address nat) nat : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair address (pair nat nat) : nat : map (pair address nat) nat : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address (pair nat nat) : pair address (pair nat nat) : nat : map (pair address nat) nat : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUG 3; # pair address (pair nat nat) : nat : map (pair address nat) nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : nat : map (pair address nat) nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PAIR; # pair address nat : map (pair address nat) nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
MEM; # bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{
# self.data.ledger[(sp.set_type_expr(tx.to_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))].balance += tx.amount # pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DIG 3; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
UNPAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
UNPAIR; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SWAP; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
UNPAIR; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUP; # map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DIG 5; # pair address (pair nat nat) : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUP; # pair address (pair nat nat) : pair address (pair nat nat) : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
GET 3; # nat : pair address (pair nat nat) : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SWAP; # pair address (pair nat nat) : nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUP; # pair address (pair nat nat) : pair address (pair nat nat) : nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUG 7; # pair address (pair nat nat) : nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
CAR; # address : nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair address nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUP; # pair address nat : pair address nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUG 2; # pair address nat : map (pair address nat) nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
GET; # option nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
IF_NONE
{
PUSH int 406; # int : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
FAILWITH; # FAILED
}
{}; # @some : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DIG 6; # pair address (pair nat nat) : @some : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
GET 4; # nat : @some : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
ADD; # nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SOME; # option nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SWAP; # pair address nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
UPDATE; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SWAP; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUG 2; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
# self.data.ledger[(sp.set_type_expr(tx.to_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))] = sp.record(balance = tx.amount) # pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DIG 3; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
UNPAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
UNPAIR; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SWAP; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
UNPAIR; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUP 5; # pair address (pair nat nat) : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
GET 4; # nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SOME; # option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DIG 5; # pair address (pair nat nat) : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUP; # pair address (pair nat nat) : pair address (pair nat nat) : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
GET 3; # nat : pair address (pair nat nat) : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SWAP; # pair address (pair nat nat) : nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
CAR; # address : nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair address nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
UPDATE; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SWAP; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUG 2; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
DROP; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DROP; # list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DROP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
# == update_operators ==
# for update in params: ... # list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # list (or (pair address (pair address nat)) (pair address (pair address nat))) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
ITER
{
# with update.match_cases(...): # or (pair address (pair address nat)) (pair address (pair address nat)) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF_LEFT
{
# sp.verify((add_operator.owner == sp.sender) | (sp.sender == self.data.administrator), 'FA2_NOT_ADMIN_OR_OPERATOR') # pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address (pair address nat) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SENDER; # @sender : address : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
EQ; # bool : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{
PUSH bool True; # bool : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
DUP 3; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair address nat : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SENDER; # @sender : address : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
EQ; # bool : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # bool : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{}
{
PUSH string "FA2_NOT_ADMIN_OR_OPERATOR"; # string : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}; # pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
# self.data.operators[sp.set_type_expr(sp.record(owner = add_operator.owner, operator = add_operator.operator, token_id = add_operator.token_id), sp.TRecord(operator = sp.TAddress, owner = sp.TAddress, token_id = sp.TNat).layout(("owner", ("operator", "token_id"))))] = sp.unit # pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DIG 2; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
UNPAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
SWAP; # pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
UNPAIR; # pair (map (pair address (pair address nat)) unit) bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
UNPAIR; # map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
PUSH (option unit) (Some Unit); # option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
DIG 5; # pair address (pair address nat) : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
DUP; # pair address (pair address nat) : pair address (pair address nat) : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
GET 4; # nat : pair address (pair address nat) : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
SWAP; # pair address (pair address nat) : nat : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
DUP; # pair address (pair address nat) : pair address (pair address nat) : nat : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
GET 3; # address : pair address (pair address nat) : nat : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
SWAP; # pair address (pair address nat) : address : nat : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
CAR; # address : address : nat : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
PAIR 3; # pair address (pair address nat) : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
UPDATE; # map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
PAIR; # pair (map (pair address (pair address nat)) unit) bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
PAIR; # pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
SWAP; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
PAIR; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
SWAP; # list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
# sp.verify((remove_operator.owner == sp.sender) | (sp.sender == self.data.administrator), 'FA2_NOT_ADMIN_OR_OPERATOR') # pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address (pair address nat) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SENDER; # @sender : address : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
EQ; # bool : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{
PUSH bool True; # bool : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
DUP 3; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair address nat : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SENDER; # @sender : address : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
EQ; # bool : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # bool : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{}
{
PUSH string "FA2_NOT_ADMIN_OR_OPERATOR"; # string : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}; # pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
# del self.data.operators[sp.set_type_expr(sp.record(owner = remove_operator.owner, operator = remove_operator.operator, token_id = remove_operator.token_id), sp.TRecord(operator = sp.TAddress, owner = sp.TAddress, token_id = sp.TNat).layout(("owner", ("operator", "token_id"))))] # pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DIG 2; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
UNPAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
SWAP; # pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
UNPAIR; # pair (map (pair address (pair address nat)) unit) bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
UNPAIR; # map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
NONE unit; # option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
DIG 5; # pair address (pair address nat) : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
DUP; # pair address (pair address nat) : pair address (pair address nat) : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
GET 4; # nat : pair address (pair address nat) : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
SWAP; # pair address (pair address nat) : nat : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
DUP; # pair address (pair address nat) : pair address (pair address nat) : nat : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
GET 3; # address : pair address (pair address nat) : nat : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
SWAP; # pair address (pair address nat) : address : nat : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
CAR; # address : address : nat : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
PAIR 3; # pair address (pair address nat) : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
UPDATE; # map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
PAIR; # pair (map (pair address (pair address nat)) unit) bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
PAIR; # pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
SWAP; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
PAIR; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
SWAP; # list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DROP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
NIL operation; # list operation : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # list operation : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PAIR; # pair (list operation) (pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))))
};
{
CAST (pair (or (or (pair (list (pair address nat)) (contract (list (pair (pair address nat) nat)))) (or (pair (pair address nat) (pair (map string bytes) nat)) address)) (or (or (pair string bytes) bool) (or (list (pair address (list (pair address (pair nat nat))))) (list (or (pair address (pair address nat)) (pair address (pair address nat))))))) (pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))))); # pair (or (or (pair (list (pair address nat)) (contract (list (pair (pair address nat) nat)))) (or (pair (pair address nat) (pair (map string bytes) nat)) address)) (or (or (pair string bytes) bool) (or (list (pair address (list (pair address (pair nat nat))))) (list (or (pair address (pair address nat)) (pair address (pair address nat))))))) (pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))))
UNPAIR; # or (or (pair (list (pair address nat)) (contract (list (pair (pair address nat) nat)))) (or (pair (pair address nat) (pair (map string bytes) nat)) address)) (or (or (pair string bytes) bool) (or (list (pair address (list (pair address (pair nat nat))))) (list (or (pair address (pair address nat)) (pair address (pair address nat)))))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF_LEFT
{
IF_LEFT
{
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat)))
# == balance_of ==
# sp.verify(~ self.data.paused, 'FA2_PAUSED') # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat)))
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat)))
DUG 2; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # pair (map (pair address (pair address nat)) unit) bool : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CDR; # bool : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{
PUSH string "FA2_PAUSED"; # string : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}
{}; # pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
# def f0(lparams_0):
# sp.verify(self.data.token_metadata.contains(lparams_0.token_id), 'FA2_TOKEN_UNDEFINED')
# sp.if self.data.ledger.contains((sp.set_type_expr(lparams_0.owner, sp.TAddress), sp.set_type_expr(lparams_0.token_id, sp.TNat))):
# sp.result(sp.record(request = sp.record(owner = sp.set_type_expr(lparams_0.owner, sp.TAddress), token_id = sp.set_type_expr(lparams_0.token_id, sp.TNat)), balance = self.data.ledger[(sp.set_type_expr(lparams_0.owner, sp.TAddress), sp.set_type_expr(lparams_0.token_id, sp.TNat))].balance))
# sp.else:
# sp.result(sp.record(request = sp.record(owner = sp.set_type_expr(lparams_0.owner, sp.TAddress), token_id = sp.set_type_expr(lparams_0.token_id, sp.TNat)), balance = 0))
# responses = sp.local("responses", params.requests.map(sp.build_lambda(f0))) # pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # list (pair address nat) : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
MAP
{
# sp.verify(self.data.token_metadata.contains(lparams_0.token_id), 'FA2_TOKEN_UNDEFINED') # pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 3; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 5; # map nat (pair nat (map string bytes)) : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair address nat : map nat (pair nat (map string bytes)) : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address nat : pair address nat : map nat (pair nat (map string bytes)) : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUG 2; # pair address nat : map nat (pair nat (map string bytes)) : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CDR; # nat : map nat (pair nat (map string bytes)) : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
MEM; # bool : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{}
{
PUSH string "FA2_TOKEN_UNDEFINED"; # string : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}; # pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
# if self.data.ledger.contains((sp.set_type_expr(lparams_0.owner, sp.TAddress), sp.set_type_expr(lparams_0.token_id, sp.TNat))): # pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 3; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # map (pair address nat) nat : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair address nat : map (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address nat : pair address nat : map (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CDR; # nat : pair address nat : map (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair address nat : nat : map (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address nat : pair address nat : nat : map (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUG 3; # pair address nat : nat : map (pair address nat) nat : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : nat : map (pair address nat) nat : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PAIR; # pair address nat : map (pair address nat) nat : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
MEM; # bool : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{
# sp.result(sp.record(request = sp.record(owner = sp.set_type_expr(lparams_0.owner, sp.TAddress), token_id = sp.set_type_expr(lparams_0.token_id, sp.TNat)), balance = self.data.ledger[(sp.set_type_expr(lparams_0.owner, sp.TAddress), sp.set_type_expr(lparams_0.token_id, sp.TNat))].balance)) # pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 3; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # map (pair address nat) nat : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair address nat : map (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address nat : pair address nat : map (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CDR; # nat : pair address nat : map (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair address nat : nat : map (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address nat : pair address nat : nat : map (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUG 3; # pair address nat : nat : map (pair address nat) nat : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : nat : map (pair address nat) nat : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PAIR; # pair address nat : map (pair address nat) nat : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET; # option nat : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF_NONE
{
PUSH int 421; # int : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}
{
# of_some: Get-item:421 # @some : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # @some : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair address nat : @some : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PAIR; # pair (pair address nat) @some : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
# sp.result(sp.record(request = sp.record(owner = sp.set_type_expr(lparams_0.owner, sp.TAddress), token_id = sp.set_type_expr(lparams_0.token_id, sp.TNat)), balance = 0)) # pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PUSH nat 0; # nat : pair address nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair address nat : nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PAIR; # pair (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # pair (pair address nat) nat : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # list (pair (pair address nat) nat) : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
# sp.transfer(responses.value, sp.tez(0), sp.set_type_expr(params.callback, sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))))) # list (pair (pair address nat) nat) : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
NIL operation; # list operation : list (pair (pair address nat) nat) : pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DIG 2; # pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))) : list operation : list (pair (pair address nat) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CDR; # contract (list (pair (pair address nat) nat)) : list operation : list (pair (pair address nat) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PUSH mutez 0; # mutez : contract (list (pair (pair address nat) nat)) : list operation : list (pair (pair address nat) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DIG 3; # list (pair (pair address nat) nat) : mutez : contract (list (pair (pair address nat) nat)) : list operation : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CONS; # list operation : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
IF_LEFT
{
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
# == mint ==
# sp.verify(sp.sender == self.data.administrator, 'FA2_NOT_ADMIN') # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUG 2; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair address nat : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SENDER; # @sender : address : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
EQ; # bool : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{}
{
PUSH string "FA2_NOT_ADMIN"; # string : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
# sp.verify(self.data.all_tokens == params.token_id, 'Token-IDs should be consecutive') # pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 4; # nat : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 3; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : nat : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : nat : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair address nat : nat : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CDR; # nat : nat : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
EQ; # bool : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{}
{
PUSH string "Token-IDs should be consecutive"; # string : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
# self.data.all_tokens = sp.max(self.data.all_tokens, params.token_id + 1) # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUG 2; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
UNPAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
UNPAIR; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DIG 4; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
CAR; # pair address nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
CDR; # nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DUP; # nat : nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PUSH nat 1; # nat : nat : nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DUP 7; # pair (pair address nat) (pair (map string bytes) nat) : nat : nat : nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
GET 4; # nat : nat : nat : nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
ADD; # nat : nat : nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DUP; # nat : nat : nat : nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DUG 2; # nat : nat : nat : nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
COMPARE; # int : nat : nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
LE; # bool : nat : nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
IF
{
DROP; # nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
}
{
SWAP; # nat : nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DROP; # nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
}; # nat : address : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
SWAP; # address : nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
# if self.data.ledger.contains((sp.set_type_expr(params.address, sp.TAddress), sp.set_type_expr(params.token_id, sp.TNat))): # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUG 2; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # map (pair address nat) nat : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair (pair address nat) (pair (map string bytes) nat) : map (pair address nat) nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair address nat) (pair (map string bytes) nat) : map (pair address nat) nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 4; # nat : pair (pair address nat) (pair (map string bytes) nat) : map (pair address nat) nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair (pair address nat) (pair (map string bytes) nat) : nat : map (pair address nat) nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair address nat) (pair (map string bytes) nat) : nat : map (pair address nat) nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUG 3; # pair (pair address nat) (pair (map string bytes) nat) : nat : map (pair address nat) nat : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair address nat : nat : map (pair address nat) nat : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : nat : map (pair address nat) nat : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PAIR; # pair address nat : map (pair address nat) nat : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
MEM; # bool : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
# self.data.ledger[(sp.set_type_expr(params.address, sp.TAddress), sp.set_type_expr(params.token_id, sp.TNat))].balance += params.amount # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
UNPAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
UNPAIR; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
SWAP; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
UNPAIR; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DUP; # map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DIG 5; # pair (pair address nat) (pair (map string bytes) nat) : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
DUP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair address nat) (pair (map string bytes) nat) : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
GET 4; # nat : pair (pair address nat) (pair (map string bytes) nat) : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
SWAP; # pair (pair address nat) (pair (map string bytes) nat) : nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
DUP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair address nat) (pair (map string bytes) nat) : nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
DUG 7; # pair (pair address nat) (pair (map string bytes) nat) : nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
CAR; # pair address nat : nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
CAR; # address : nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair address nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DUP; # pair address nat : pair address nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DUG 2; # pair address nat : map (pair address nat) nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
GET; # option nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
IF_NONE
{
PUSH int 532; # int : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
FAILWITH; # FAILED
}
{}; # @some : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DUP 7; # pair (pair address nat) (pair (map string bytes) nat) : @some : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
CAR; # pair address nat : @some : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
CDR; # nat : @some : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
ADD; # nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
SOME; # option nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
SWAP; # pair address nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
UPDATE; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
SWAP; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
SWAP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
# self.data.ledger[(sp.set_type_expr(params.address, sp.TAddress), sp.set_type_expr(params.token_id, sp.TNat))] = sp.record(balance = params.amount) # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
UNPAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
UNPAIR; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
SWAP; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
UNPAIR; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DUP 5; # pair (pair address nat) (pair (map string bytes) nat) : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
CAR; # pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
CDR; # nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
SOME; # option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
DIG 5; # pair (pair address nat) (pair (map string bytes) nat) : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
DUP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair address nat) (pair (map string bytes) nat) : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
GET 4; # nat : pair (pair address nat) (pair (map string bytes) nat) : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
SWAP; # pair (pair address nat) (pair (map string bytes) nat) : nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
DUP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair address nat) (pair (map string bytes) nat) : nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
DUG 7; # pair (pair address nat) (pair (map string bytes) nat) : nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
CAR; # pair address nat : nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
CAR; # address : nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair address nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
UPDATE; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
SWAP; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
SWAP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
# if self.data.token_metadata.contains(params.token_id): # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUG 2; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 5; # map nat (pair nat (map string bytes)) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair (pair address nat) (pair (map string bytes) nat) : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair address nat) (pair (map string bytes) nat) : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUG 2; # pair (pair address nat) (pair (map string bytes) nat) : map nat (pair nat (map string bytes)) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 4; # nat : map nat (pair nat (map string bytes)) : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
MEM; # bool : pair (pair address nat) (pair (map string bytes) nat) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{
DROP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
# self.data.token_metadata[params.token_id] = sp.record(token_id = params.token_id, token_info = params.metadata) # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
GET 5; # map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DIG 2; # pair (pair address nat) (pair (map string bytes) nat) : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair address nat) (pair (map string bytes) nat) : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # map string bytes : pair (pair address nat) (pair (map string bytes) nat) : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair (pair address nat) (pair (map string bytes) nat) : map string bytes : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair (pair address nat) (pair (map string bytes) nat) : pair (pair address nat) (pair (map string bytes) nat) : map string bytes : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUG 4; # pair (pair address nat) (pair (map string bytes) nat) : map string bytes : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
GET 4; # nat : map string bytes : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
PAIR; # pair nat (map string bytes) : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
SOME; # option (pair nat (map string bytes)) : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUP 4; # pair (pair address nat) (pair (map string bytes) nat) : option (pair nat (map string bytes)) : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
GET 4; # nat : option (pair nat (map string bytes)) : map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
UPDATE; # map nat (pair nat (map string bytes)) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
UPDATE 5; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
# self.data.total_supply[params.token_id] = params.amount # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
GET 6; # map nat nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DUP 3; # pair (pair address nat) (pair (map string bytes) nat) : map nat nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
CAR; # pair address nat : map nat nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
CDR; # nat : map nat nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
SOME; # option nat : map nat nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair address nat) (pair (map string bytes) nat)
DIG 3; # pair (pair address nat) (pair (map string bytes) nat) : option nat : map nat nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 4; # nat : option nat : map nat nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
UPDATE; # map nat nat : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
UPDATE 6; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : address
# == set_administrator ==
# sp.verify(sp.sender == self.data.administrator, 'FA2_NOT_ADMIN') # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : address
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : address
DUG 2; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : address : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : address : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair address nat : address : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : address : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SENDER; # @sender : address : address : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : address : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
EQ; # bool : address : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{}
{
PUSH string "FA2_NOT_ADMIN"; # string : address : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}; # address : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : address
# self.data.administrator = params # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : address
UNPAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : address
UNPAIR; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : address
CDR; # nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : address
DIG 3; # address : nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
PAIR; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
PAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
PAIR; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
NIL operation; # list operation : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # list operation : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
IF_LEFT
{
IF_LEFT
{
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair string bytes
# == set_metadata ==
# sp.verify(sp.sender == self.data.administrator, 'FA2_NOT_ADMIN') # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair string bytes
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair string bytes
DUG 2; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair string bytes : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair string bytes : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair address nat : pair string bytes : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : pair string bytes : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SENDER; # @sender : address : pair string bytes : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : pair string bytes : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
EQ; # bool : pair string bytes : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{}
{
PUSH string "FA2_NOT_ADMIN"; # string : pair string bytes : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}; # pair string bytes : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair string bytes
# self.data.metadata[params.k] = params.v # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair string bytes
UNPAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair string bytes
UNPAIR; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair string bytes
SWAP; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair string bytes
UNPAIR; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair string bytes
SWAP; # big_map string bytes : map (pair address nat) nat : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair string bytes
DUP 5; # pair string bytes : big_map string bytes : map (pair address nat) nat : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair string bytes
CDR; # bytes : big_map string bytes : map (pair address nat) nat : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair string bytes
SOME; # option bytes : big_map string bytes : map (pair address nat) nat : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair string bytes
DIG 5; # pair string bytes : option bytes : big_map string bytes : map (pair address nat) nat : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
CAR; # string : option bytes : big_map string bytes : map (pair address nat) nat : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
UPDATE; # big_map string bytes : map (pair address nat) nat : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
SWAP; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
PAIR; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
SWAP; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
PAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
PAIR; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : bool
# == set_pause ==
# sp.verify(sp.sender == self.data.administrator, 'FA2_NOT_ADMIN') # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : bool
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : bool
DUG 2; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : bool : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : bool : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair address nat : bool : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : bool : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SENDER; # @sender : address : bool : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : bool : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
EQ; # bool : bool : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{}
{
PUSH string "FA2_NOT_ADMIN"; # string : bool : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}; # bool : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : bool
# self.data.paused = params # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : bool
UNPAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : bool
SWAP; # pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : bool
UNPAIR; # pair (map (pair address (pair address nat)) unit) bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : bool
CAR; # map (pair address (pair address nat)) unit : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : bool
DIG 3; # bool : map (pair address (pair address nat)) unit : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))
SWAP; # map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))
PAIR; # pair (map (pair address (pair address nat)) unit) bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))
PAIR; # pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))
SWAP; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))
PAIR; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
IF_LEFT
{
SWAP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : list (pair address (list (pair address (pair nat nat))))
# == transfer ==
# sp.verify(~ self.data.paused, 'FA2_PAUSED') # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUG 2; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # pair (map (pair address (pair address nat)) unit) bool : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CDR; # bool : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{
PUSH string "FA2_PAUSED"; # string : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}
{}; # list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
# for transfer in params: ... # list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # list (pair address (list (pair address (pair nat nat)))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
ITER
{
# for tx in transfer.txs: ... # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address (list (pair address (pair nat nat))) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CDR; # list (pair address (pair nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
ITER
{
# sp.verify(((sp.sender == self.data.administrator) | (transfer.from_ == sp.sender)) | (self.data.operators.contains(sp.set_type_expr(sp.record(owner = transfer.from_, operator = sp.sender, token_id = tx.token_id), sp.TRecord(operator = sp.TAddress, owner = sp.TAddress, token_id = sp.TNat).layout(("owner", ("operator", "token_id")))))), 'FA2_NOT_OPERATOR') # pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 4; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair address nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SENDER; # @sender : address : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
EQ; # bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{
PUSH bool True; # bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
SENDER; # @sender : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 3; # pair address (list (pair address (pair nat nat))) : @sender : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : @sender : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
EQ; # bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{
PUSH bool True; # bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
DUP 4; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # pair (map (pair address (pair address nat)) unit) bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # map (pair address (pair address nat)) unit : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair address (pair nat nat) : map (pair address (pair address nat)) unit : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address (pair nat nat) : pair address (pair nat nat) : map (pair address (pair address nat)) unit : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUG 2; # pair address (pair nat nat) : map (pair address (pair address nat)) unit : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # nat : map (pair address (pair address nat)) unit : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SENDER; # @sender : nat : map (pair address (pair address nat)) unit : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 5; # pair address (list (pair address (pair nat nat))) : @sender : nat : map (pair address (pair address nat)) unit : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : @sender : nat : map (pair address (pair address nat)) unit : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PAIR 3; # pair address (pair @sender nat) : map (pair address (pair address nat)) unit : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
MEM; # bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{}
{
PUSH string "FA2_NOT_OPERATOR"; # string : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}; # pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
# sp.verify(self.data.token_metadata.contains(tx.token_id), 'FA2_TOKEN_UNDEFINED') # pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 4; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 5; # map nat (pair nat (map string bytes)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair address (pair nat nat) : map nat (pair nat (map string bytes)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address (pair nat nat) : pair address (pair nat nat) : map nat (pair nat (map string bytes)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUG 2; # pair address (pair nat nat) : map nat (pair nat (map string bytes)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # nat : map nat (pair nat (map string bytes)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
MEM; # bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{}
{
PUSH string "FA2_TOKEN_UNDEFINED"; # string : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}; # pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
# if tx.amount > 0: # pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address (pair nat nat) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 4; # nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PUSH nat 0; # nat : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
LT; # bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{
# sp.verify(self.data.ledger[(sp.set_type_expr(transfer.from_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))].balance >= tx.amount, 'FA2_INSUFFICIENT_BALANCE') # pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address (pair nat nat) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 4; # nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 5; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # map (pair address nat) nat : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 3; # pair address (pair nat nat) : map (pair address nat) nat : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # nat : map (pair address nat) nat : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 5; # pair address (list (pair address (pair nat nat))) : nat : map (pair address nat) nat : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : nat : map (pair address nat) nat : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PAIR; # pair address nat : map (pair address nat) nat : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET; # option nat : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF_NONE
{
PUSH int 400; # int : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}
{
# of_some: Get-item:400 # @some : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # @some : nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GE; # bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{}
{
PUSH string "FA2_INSUFFICIENT_BALANCE"; # string : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}; # pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
# self.data.ledger[(sp.set_type_expr(transfer.from_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))].balance = sp.as_nat(self.data.ledger[(sp.set_type_expr(transfer.from_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))].balance - tx.amount) # pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 4; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
UNPAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
UNPAIR; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
UNPAIR; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 6; # pair address (pair nat nat) : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 8; # pair address (list (pair address (pair nat nat))) : nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PAIR; # pair address nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address nat : pair address nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUG 2; # pair address nat : map (pair address nat) nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET; # option nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF_NONE
{
PUSH int 403; # int : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}
{
DROP; # pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP 6; # pair address (pair nat nat) : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 4; # nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DIG 9; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
GET 3; # map (pair address nat) nat : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUP 8; # pair address (pair nat nat) : map (pair address nat) nat : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
GET 3; # nat : map (pair address nat) nat : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUP 10; # pair address (list (pair address (pair nat nat))) : nat : map (pair address nat) nat : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
CAR; # address : nat : map (pair address nat) nat : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair address nat : map (pair address nat) nat : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
GET; # option nat : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
IF_NONE
{
PUSH int 404; # int : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:404 # @some : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
}; # @some : nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SUB; # int : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
ISNAT; # option nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
IF_NONE
{
PUSH int 403; # int : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
FAILWITH; # FAILED
}
{}; # @some : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SOME; # option nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SWAP; # pair address nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
UPDATE; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SWAP; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
# if self.data.ledger.contains((sp.set_type_expr(tx.to_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))): # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUG 4; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # map (pair address nat) nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair address (pair nat nat) : map (pair address nat) nat : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address (pair nat nat) : pair address (pair nat nat) : map (pair address nat) nat : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
GET 3; # nat : pair address (pair nat nat) : map (pair address nat) nat : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SWAP; # pair address (pair nat nat) : nat : map (pair address nat) nat : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address (pair nat nat) : pair address (pair nat nat) : nat : map (pair address nat) nat : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUG 3; # pair address (pair nat nat) : nat : map (pair address nat) nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : nat : map (pair address nat) nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PAIR; # pair address nat : map (pair address nat) nat : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
MEM; # bool : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{
# self.data.ledger[(sp.set_type_expr(tx.to_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))].balance += tx.amount # pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DIG 3; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
UNPAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
UNPAIR; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SWAP; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
UNPAIR; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUP; # map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DIG 5; # pair address (pair nat nat) : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUP; # pair address (pair nat nat) : pair address (pair nat nat) : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
GET 3; # nat : pair address (pair nat nat) : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SWAP; # pair address (pair nat nat) : nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUP; # pair address (pair nat nat) : pair address (pair nat nat) : nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUG 7; # pair address (pair nat nat) : nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
CAR; # address : nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair address nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUP; # pair address nat : pair address nat : map (pair address nat) nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUG 2; # pair address nat : map (pair address nat) nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
GET; # option nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
IF_NONE
{
PUSH int 406; # int : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
FAILWITH; # FAILED
}
{}; # @some : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DIG 6; # pair address (pair nat nat) : @some : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
GET 4; # nat : @some : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
ADD; # nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SOME; # option nat : pair address nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SWAP; # pair address nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
UPDATE; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SWAP; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUG 2; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
# self.data.ledger[(sp.set_type_expr(tx.to_, sp.TAddress), sp.set_type_expr(tx.token_id, sp.TNat))] = sp.record(balance = tx.amount) # pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DIG 3; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
UNPAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
UNPAIR; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SWAP; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
UNPAIR; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUP 5; # pair address (pair nat nat) : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
GET 4; # nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SOME; # option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair nat nat) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DIG 5; # pair address (pair nat nat) : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUP; # pair address (pair nat nat) : pair address (pair nat nat) : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
GET 3; # nat : pair address (pair nat nat) : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SWAP; # pair address (pair nat nat) : nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
CAR; # address : nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair address nat : option nat : map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
UPDATE; # map (pair address nat) nat : big_map string bytes : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair (map (pair address nat) nat) (big_map string bytes) : pair address nat : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
SWAP; # pair address nat : pair (map (pair address nat) nat) (big_map string bytes) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
PAIR; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat))))
DUG 2; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
DROP; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DROP; # list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # list (pair address (list (pair address (pair nat nat)))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DROP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
# == update_operators ==
# for update in params: ... # list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # list (or (pair address (pair address nat)) (pair address (pair address nat))) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
ITER
{
# with update.match_cases(...): # or (pair address (pair address nat)) (pair address (pair address nat)) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF_LEFT
{
# sp.verify((add_operator.owner == sp.sender) | (sp.sender == self.data.administrator), 'FA2_NOT_ADMIN_OR_OPERATOR') # pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address (pair address nat) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SENDER; # @sender : address : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
EQ; # bool : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{
PUSH bool True; # bool : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
DUP 3; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair address nat : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SENDER; # @sender : address : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
EQ; # bool : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # bool : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{}
{
PUSH string "FA2_NOT_ADMIN_OR_OPERATOR"; # string : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}; # pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
# self.data.operators[sp.set_type_expr(sp.record(owner = add_operator.owner, operator = add_operator.operator, token_id = add_operator.token_id), sp.TRecord(operator = sp.TAddress, owner = sp.TAddress, token_id = sp.TNat).layout(("owner", ("operator", "token_id"))))] = sp.unit # pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DIG 2; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
UNPAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
SWAP; # pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
UNPAIR; # pair (map (pair address (pair address nat)) unit) bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
UNPAIR; # map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
PUSH (option unit) (Some Unit); # option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
DIG 5; # pair address (pair address nat) : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
DUP; # pair address (pair address nat) : pair address (pair address nat) : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
GET 4; # nat : pair address (pair address nat) : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
SWAP; # pair address (pair address nat) : nat : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
DUP; # pair address (pair address nat) : pair address (pair address nat) : nat : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
GET 3; # address : pair address (pair address nat) : nat : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
SWAP; # pair address (pair address nat) : address : nat : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
CAR; # address : address : nat : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
PAIR 3; # pair address (pair address nat) : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
UPDATE; # map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
PAIR; # pair (map (pair address (pair address nat)) unit) bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
PAIR; # pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
SWAP; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
PAIR; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
SWAP; # list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
# sp.verify((remove_operator.owner == sp.sender) | (sp.sender == self.data.administrator), 'FA2_NOT_ADMIN_OR_OPERATOR') # pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DUP; # pair address (pair address nat) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SENDER; # @sender : address : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
EQ; # bool : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{
PUSH bool True; # bool : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}
{
DUP 3; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # pair address nat : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
CAR; # address : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
SENDER; # @sender : address : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
COMPARE; # int : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
EQ; # bool : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # bool : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
IF
{}
{
PUSH string "FA2_NOT_ADMIN_OR_OPERATOR"; # string : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
FAILWITH; # FAILED
}; # pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
# del self.data.operators[sp.set_type_expr(sp.record(owner = remove_operator.owner, operator = remove_operator.operator, token_id = remove_operator.token_id), sp.TRecord(operator = sp.TAddress, owner = sp.TAddress, token_id = sp.TNat).layout(("owner", ("operator", "token_id"))))] # pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DIG 2; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
UNPAIR; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
SWAP; # pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
UNPAIR; # pair (map (pair address (pair address nat)) unit) bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
UNPAIR; # map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
NONE unit; # option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair address (pair address nat) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
DIG 5; # pair address (pair address nat) : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
DUP; # pair address (pair address nat) : pair address (pair address nat) : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
GET 4; # nat : pair address (pair address nat) : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
SWAP; # pair address (pair address nat) : nat : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
DUP; # pair address (pair address nat) : pair address (pair address nat) : nat : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
GET 3; # address : pair address (pair address nat) : nat : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
SWAP; # pair address (pair address nat) : address : nat : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
CAR; # address : address : nat : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
PAIR 3; # pair address (pair address nat) : option unit : map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
UPDATE; # map (pair address (pair address nat)) unit : bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
PAIR; # pair (map (pair address (pair address nat)) unit) bool : pair (map nat (pair nat (map string bytes))) (map nat nat) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
PAIR; # pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
SWAP; # pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes)) : pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
PAIR; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))) : list (or (pair address (pair address nat)) (pair address (pair address nat)))
SWAP; # list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # list (or (pair address (pair address nat)) (pair address (pair address nat))) : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
DROP; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
NIL operation; # list operation : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
}; # list operation : pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat)))
PAIR; # pair (list operation) (pair (pair (pair address nat) (pair (map (pair address nat) nat) (big_map string bytes))) (pair (pair (map (pair address (pair address nat)) unit) bool) (pair (map nat (pair nat (map string bytes))) (map nat nat))))
};
Initial Storage
{
"prim": "Pair",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "string": "tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5" }, { "int": "0" } ] },
{ "prim": "Pair", "args": [ [], [ { "prim": "Elt", "args": [ { "string": "" }, { "bytes": "68747470733a2f2f6578616d706c652e636f6d" } ] } ] ] }
]
},
{ "prim": "Pair", "args": [ { "prim": "Pair", "args": [ [], { "prim": "False" } ] }, { "prim": "Pair", "args": [ [], [] ] } ] }
]
}
"prim": "Pair",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "string": "tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5" }, { "int": "0" } ] },
{ "prim": "Pair", "args": [ [], [ { "prim": "Elt", "args": [ { "string": "" }, { "bytes": "68747470733a2f2f6578616d706c652e636f6d" } ] } ] ] }
]
},
{ "prim": "Pair", "args": [ { "prim": "Pair", "args": [ [], { "prim": "False" } ] }, { "prim": "Pair", "args": [ [], [] ] } ] }
]
}
JSON Representation
[
{
"prim": "storage",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%administrator" ] }, { "prim": "nat", "annots": [ "%all_tokens" ] } ] },
{
"prim": "pair",
"args": [
{ "prim": "map", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ], "annots": [ "%ledger" ] },
{ "prim": "big_map", "args": [ { "prim": "string" }, { "prim": "bytes" } ], "annots": [ "%metadata" ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "map",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%owner" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%operator" ] }, { "prim": "nat", "annots": [ "%token_id" ] } ] }
]
},
{ "prim": "unit" }
],
"annots": [ "%operators" ]
},
{ "prim": "bool", "annots": [ "%paused" ] }
]
},
{
"prim": "pair",
"args": [
{
"prim": "map",
"args": [
{ "prim": "nat" },
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%token_id" ] },
{ "prim": "map", "args": [ { "prim": "string" }, { "prim": "bytes" } ], "annots": [ "%token_info" ] }
]
}
],
"annots": [ "%token_metadata" ]
},
{ "prim": "map", "args": [ { "prim": "nat" }, { "prim": "nat" } ], "annots": [ "%total_supply" ] }
]
}
]
}
]
}
]
},
{
"prim": "parameter",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "list",
"args": [ { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%owner" ] }, { "prim": "nat", "annots": [ "%token_id" ] } ] } ],
"annots": [ "%requests" ]
},
{
"prim": "contract",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%owner" ] }, { "prim": "nat", "annots": [ "%token_id" ] } ], "annots": [ "%request" ] },
{ "prim": "nat", "annots": [ "%balance" ] }
]
}
]
}
],
"annots": [ "%callback" ]
}
],
"annots": [ "%balance_of" ]
},
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%address" ] }, { "prim": "nat", "annots": [ "%amount" ] } ] },
{
"prim": "pair",
"args": [
{ "prim": "map", "args": [ { "prim": "string" }, { "prim": "bytes" } ], "annots": [ "%metadata" ] },
{ "prim": "nat", "annots": [ "%token_id" ] }
]
}
],
"annots": [ "%mint" ]
},
{ "prim": "address", "annots": [ "%set_administrator" ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "string", "annots": [ "%k" ] }, { "prim": "bytes", "annots": [ "%v" ] } ], "annots": [ "%set_metadata" ] },
{ "prim": "bool", "annots": [ "%set_pause" ] }
]
},
{
"prim": "or",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%from_" ] },
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%to_" ] },
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%token_id" ] }, { "prim": "nat", "annots": [ "%amount" ] } ] }
]
}
],
"annots": [ "%txs" ]
}
]
}
],
"annots": [ "%transfer" ]
},
{
"prim": "list",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%owner" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%operator" ] }, { "prim": "nat", "annots": [ "%token_id" ] } ] }
],
"annots": [ "%add_operator" ]
},
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%owner" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%operator" ] }, { "prim": "nat", "annots": [ "%token_id" ] } ] }
],
"annots": [ "%remove_operator" ]
}
]
}
],
"annots": [ "%update_operators" ]
}
]
}
]
}
]
}
]
},
{
"prim": "code",
"args": [
[
{
"prim": "CAST",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "list", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{
"prim": "contract",
"args": [
{
"prim": "list",
"args": [ { "prim": "pair", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } ]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "string" }, { "prim": "bytes" } ] }, { "prim": "nat" } ] }
]
},
{ "prim": "address" }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "pair", "args": [ { "prim": "string" }, { "prim": "bytes" } ] }, { "prim": "bool" } ] },
{
"prim": "or",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ]
}
]
}
]
},
{
"prim": "list",
"args": [
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "map", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] },
{ "prim": "big_map", "args": [ { "prim": "string" }, { "prim": "bytes" } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "map",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{ "prim": "unit" }
]
},
{ "prim": "bool" }
]
},
{
"prim": "pair",
"args": [
{
"prim": "map",
"args": [
{ "prim": "nat" },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "map", "args": [ { "prim": "string" }, { "prim": "bytes" } ] } ] }
]
},
{ "prim": "map", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
}
]
}
]
}
]
}
]
},
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "IF", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_PAUSED" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{
"prim": "MAP",
"args": [
[
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_TOKEN_UNDEFINED" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CDR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CDR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "421" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" }
],
[ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "SWAP" }, { "prim": "PAIR" } ]
]
}
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Token-IDs should be consecutive" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "DUP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1" } ] },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "ADD" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "7" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "532" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "ADD" },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "SOME" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "7" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[ { "prim": "DROP" } ],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PAIR" },
{ "prim": "SOME" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "UPDATE" },
{ "prim": "UPDATE", "args": [ { "int": "5" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "SOME" },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "UPDATE" },
{ "prim": "UPDATE", "args": [ { "int": "6" } ] }
]
]
}
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" }
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CDR" },
{ "prim": "SOME" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "IF", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_PAUSED" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{
"prim": "ITER",
"args": [
[
{ "prim": "DUP" },
{ "prim": "CDR" },
{
"prim": "ITER",
"args": [
[
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ],
[ { "prim": "SENDER" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "COMPARE" }, { "prim": "EQ" } ]
]
},
{
"prim": "IF",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ],
[
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "MEM" }
]
]
},
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_NOT_OPERATOR" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_TOKEN_UNDEFINED" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "400" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "COMPARE" },
{ "prim": "GE" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_INSUFFICIENT_BALANCE" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "403" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "DROP" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "9" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "404" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "403" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "7" } ] },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "406" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "DIG", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "ADD" },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUG", "args": [ { "int": "2" } ] }
],
[
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SOME" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUG", "args": [ { "int": "2" } ] }
]
]
}
],
[ { "prim": "DROP" } ]
]
}
]
]
},
{ "prim": "DROP" }
]
]
},
{ "prim": "DROP" }
],
[
{ "prim": "DUP" },
{
"prim": "ITER",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ],
[
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" }
]
]
},
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_NOT_ADMIN_OR_OPERATOR" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "option", "args": [ { "prim": "unit" } ] }, { "prim": "Some", "args": [ { "prim": "Unit" } ] } ] },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ],
[
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" }
]
]
},
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_NOT_ADMIN_OR_OPERATOR" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "NONE", "args": [ { "prim": "unit" } ] },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
}
]
]
},
{ "prim": "DROP" }
]
]
}
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] }
]
]
},
{ "prim": "PAIR" }
]
]
}
]
{
"prim": "storage",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%administrator" ] }, { "prim": "nat", "annots": [ "%all_tokens" ] } ] },
{
"prim": "pair",
"args": [
{ "prim": "map", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ], "annots": [ "%ledger" ] },
{ "prim": "big_map", "args": [ { "prim": "string" }, { "prim": "bytes" } ], "annots": [ "%metadata" ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "map",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%owner" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%operator" ] }, { "prim": "nat", "annots": [ "%token_id" ] } ] }
]
},
{ "prim": "unit" }
],
"annots": [ "%operators" ]
},
{ "prim": "bool", "annots": [ "%paused" ] }
]
},
{
"prim": "pair",
"args": [
{
"prim": "map",
"args": [
{ "prim": "nat" },
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%token_id" ] },
{ "prim": "map", "args": [ { "prim": "string" }, { "prim": "bytes" } ], "annots": [ "%token_info" ] }
]
}
],
"annots": [ "%token_metadata" ]
},
{ "prim": "map", "args": [ { "prim": "nat" }, { "prim": "nat" } ], "annots": [ "%total_supply" ] }
]
}
]
}
]
}
]
},
{
"prim": "parameter",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "list",
"args": [ { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%owner" ] }, { "prim": "nat", "annots": [ "%token_id" ] } ] } ],
"annots": [ "%requests" ]
},
{
"prim": "contract",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%owner" ] }, { "prim": "nat", "annots": [ "%token_id" ] } ], "annots": [ "%request" ] },
{ "prim": "nat", "annots": [ "%balance" ] }
]
}
]
}
],
"annots": [ "%callback" ]
}
],
"annots": [ "%balance_of" ]
},
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%address" ] }, { "prim": "nat", "annots": [ "%amount" ] } ] },
{
"prim": "pair",
"args": [
{ "prim": "map", "args": [ { "prim": "string" }, { "prim": "bytes" } ], "annots": [ "%metadata" ] },
{ "prim": "nat", "annots": [ "%token_id" ] }
]
}
],
"annots": [ "%mint" ]
},
{ "prim": "address", "annots": [ "%set_administrator" ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "string", "annots": [ "%k" ] }, { "prim": "bytes", "annots": [ "%v" ] } ], "annots": [ "%set_metadata" ] },
{ "prim": "bool", "annots": [ "%set_pause" ] }
]
},
{
"prim": "or",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%from_" ] },
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%to_" ] },
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%token_id" ] }, { "prim": "nat", "annots": [ "%amount" ] } ] }
]
}
],
"annots": [ "%txs" ]
}
]
}
],
"annots": [ "%transfer" ]
},
{
"prim": "list",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%owner" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%operator" ] }, { "prim": "nat", "annots": [ "%token_id" ] } ] }
],
"annots": [ "%add_operator" ]
},
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%owner" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%operator" ] }, { "prim": "nat", "annots": [ "%token_id" ] } ] }
],
"annots": [ "%remove_operator" ]
}
]
}
],
"annots": [ "%update_operators" ]
}
]
}
]
}
]
}
]
},
{
"prim": "code",
"args": [
[
{
"prim": "CAST",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "list", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{
"prim": "contract",
"args": [
{
"prim": "list",
"args": [ { "prim": "pair", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } ]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "string" }, { "prim": "bytes" } ] }, { "prim": "nat" } ] }
]
},
{ "prim": "address" }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "pair", "args": [ { "prim": "string" }, { "prim": "bytes" } ] }, { "prim": "bool" } ] },
{
"prim": "or",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ]
}
]
}
]
},
{
"prim": "list",
"args": [
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "map", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] },
{ "prim": "big_map", "args": [ { "prim": "string" }, { "prim": "bytes" } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "map",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{ "prim": "unit" }
]
},
{ "prim": "bool" }
]
},
{
"prim": "pair",
"args": [
{
"prim": "map",
"args": [
{ "prim": "nat" },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "map", "args": [ { "prim": "string" }, { "prim": "bytes" } ] } ] }
]
},
{ "prim": "map", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
}
]
}
]
}
]
}
]
},
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "IF", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_PAUSED" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{
"prim": "MAP",
"args": [
[
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_TOKEN_UNDEFINED" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CDR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CDR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "421" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" }
],
[ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "SWAP" }, { "prim": "PAIR" } ]
]
}
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Token-IDs should be consecutive" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "DUP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1" } ] },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "ADD" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "7" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "532" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "ADD" },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "SOME" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "7" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[ { "prim": "DROP" } ],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PAIR" },
{ "prim": "SOME" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "UPDATE" },
{ "prim": "UPDATE", "args": [ { "int": "5" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "SOME" },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "UPDATE" },
{ "prim": "UPDATE", "args": [ { "int": "6" } ] }
]
]
}
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" }
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CDR" },
{ "prim": "SOME" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "IF", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_PAUSED" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{
"prim": "ITER",
"args": [
[
{ "prim": "DUP" },
{ "prim": "CDR" },
{
"prim": "ITER",
"args": [
[
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ],
[ { "prim": "SENDER" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "COMPARE" }, { "prim": "EQ" } ]
]
},
{
"prim": "IF",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ],
[
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "MEM" }
]
]
},
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_NOT_OPERATOR" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_TOKEN_UNDEFINED" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "400" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "COMPARE" },
{ "prim": "GE" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_INSUFFICIENT_BALANCE" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "403" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "DROP" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "9" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "404" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "403" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "7" } ] },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "406" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "DIG", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "ADD" },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUG", "args": [ { "int": "2" } ] }
],
[
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SOME" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUG", "args": [ { "int": "2" } ] }
]
]
}
],
[ { "prim": "DROP" } ]
]
}
]
]
},
{ "prim": "DROP" }
]
]
},
{ "prim": "DROP" }
],
[
{ "prim": "DUP" },
{
"prim": "ITER",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ],
[
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" }
]
]
},
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_NOT_ADMIN_OR_OPERATOR" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "option", "args": [ { "prim": "unit" } ] }, { "prim": "Some", "args": [ { "prim": "Unit" } ] } ] },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ],
[
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" }
]
]
},
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_NOT_ADMIN_OR_OPERATOR" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "NONE", "args": [ { "prim": "unit" } ] },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
}
]
]
},
{ "prim": "DROP" }
]
]
}
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] }
]
]
},
{ "prim": "PAIR" }
]
]
}
]
Metadata
{
"version": "FA2-debug",
"description": "This is a didactic reference implementation of FA2, a.k.a. TZIP-012, using SmartPy.\n\nThis particular contract uses the configuration named: FA2-debug.",
"interfaces": [ "TZIP-012", "TZIP-016" ],
"authors": [ "Seb Mondet" ],
"homepage": "https://gitlab.com/smondet/fa2-smartpy",
"views": [
{
"name": "get_balance",
"pure": true,
"description": "This is the `get_balance` view defined in TZIP-12.",
"implementations": [
{
"michelsonStorageView": {
"parameter": { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
"returnType": { "prim": "nat" },
"code": [
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_TOKEN_UNDEFINED" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "449" } ] }, { "prim": "FAILWITH" } ], [] ] }
]
}
}
]
},
{
"name": "does_token_exist",
"pure": true,
"description": "Ask whether a token ID is exists.",
"implementations": [
{
"michelsonStorageView": {
"parameter": { "prim": "nat" },
"returnType": { "prim": "bool" },
"code": [ { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "SWAP" }, { "prim": "MEM" } ]
}
}
]
},
{
"name": "count_tokens",
"pure": true,
"description": "Get how many tokens are in this FA2 contract.\n ",
"implementations": [ { "michelsonStorageView": { "returnType": { "prim": "nat" }, "code": [ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CDR" } ] } } ]
},
{
"name": "all_tokens",
"pure": true,
"description":
"\n This view is specified (but optional) in the standard.\n\n This contract is built with assume_consecutive_token_ids =\n True, so we return a list constructed from the number of tokens.\n ",
"implementations": [
{
"michelsonStorageView": {
"returnType": { "prim": "list", "args": [ { "prim": "nat" } ] },
"code": [
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "NIL", "args": [ { "prim": "nat" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "LOOP",
"args": [
[
{ "prim": "DUP" },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "CONS" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1" } ] },
{ "prim": "ADD" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" }
]
]
},
{ "prim": "DROP", "args": [ { "int": "2" } ] },
{ "prim": "SWAP" },
{ "prim": "DROP" },
{ "prim": "NIL", "args": [ { "prim": "nat" } ] },
{ "prim": "SWAP" },
{ "prim": "ITER", "args": [ [ { "prim": "CONS" } ] ] }
]
}
}
]
},
{
"name": "is_operator",
"pure": true,
"implementations": [
{
"michelsonStorageView": {
"parameter": { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
"returnType": { "prim": "bool" },
"code": [
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "MEM" }
]
}
}
]
},
{
"name": "total_supply",
"pure": true,
"implementations": [
{
"michelsonStorageView": {
"parameter": { "prim": "nat" },
"returnType": { "prim": "nat" },
"code": [
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SWAP" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "592" } ] }, { "prim": "FAILWITH" } ], [] ] }
]
}
}
]
}
],
"source": { "tools": [ "SmartPy" ], "location": "https://gitlab.com/smondet/fa2-smartpy.git" },
"permissions": { "operator": "owner-or-operator-transfer", "receiver": "owner-no-hook", "sender": "owner-no-hook" },
"fa2-smartpy": {
"configuration": {
"add_mutez_transfer": false,
"allow_self_transfer": false,
"assume_consecutive_token_ids": true,
"force_layouts": true,
"lazy_entry_points": false,
"name": "FA2-debug",
"non_fungible": false,
"readable": true,
"single_asset": false,
"store_total_supply": true,
"support_operator": true,
"use_token_metadata_offchain_view": false
}
}
}
"version": "FA2-debug",
"description": "This is a didactic reference implementation of FA2, a.k.a. TZIP-012, using SmartPy.\n\nThis particular contract uses the configuration named: FA2-debug.",
"interfaces": [ "TZIP-012", "TZIP-016" ],
"authors": [ "Seb Mondet
"homepage": "https://gitlab.com/smondet/fa2-smartpy",
"views": [
{
"name": "get_balance",
"pure": true,
"description": "This is the `get_balance` view defined in TZIP-12.",
"implementations": [
{
"michelsonStorageView": {
"parameter": { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
"returnType": { "prim": "nat" },
"code": [
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA2_TOKEN_UNDEFINED" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "449" } ] }, { "prim": "FAILWITH" } ], [] ] }
]
}
}
]
},
{
"name": "does_token_exist",
"pure": true,
"description": "Ask whether a token ID is exists.",
"implementations": [
{
"michelsonStorageView": {
"parameter": { "prim": "nat" },
"returnType": { "prim": "bool" },
"code": [ { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "SWAP" }, { "prim": "MEM" } ]
}
}
]
},
{
"name": "count_tokens",
"pure": true,
"description": "Get how many tokens are in this FA2 contract.\n ",
"implementations": [ { "michelsonStorageView": { "returnType": { "prim": "nat" }, "code": [ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CDR" } ] } } ]
},
{
"name": "all_tokens",
"pure": true,
"description":
"\n This view is specified (but optional) in the standard.\n\n This contract is built with assume_consecutive_token_ids =\n True, so we return a list constructed from the number of tokens.\n ",
"implementations": [
{
"michelsonStorageView": {
"returnType": { "prim": "list", "args": [ { "prim": "nat" } ] },
"code": [
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "NIL", "args": [ { "prim": "nat" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "LOOP",
"args": [
[
{ "prim": "DUP" },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "CONS" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1" } ] },
{ "prim": "ADD" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" }
]
]
},
{ "prim": "DROP", "args": [ { "int": "2" } ] },
{ "prim": "SWAP" },
{ "prim": "DROP" },
{ "prim": "NIL", "args": [ { "prim": "nat" } ] },
{ "prim": "SWAP" },
{ "prim": "ITER", "args": [ [ { "prim": "CONS" } ] ] }
]
}
}
]
},
{
"name": "is_operator",
"pure": true,
"implementations": [
{
"michelsonStorageView": {
"parameter": { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
"returnType": { "prim": "bool" },
"code": [
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "MEM" }
]
}
}
]
},
{
"name": "total_supply",
"pure": true,
"implementations": [
{
"michelsonStorageView": {
"parameter": { "prim": "nat" },
"returnType": { "prim": "nat" },
"code": [
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SWAP" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "592" } ] }, { "prim": "FAILWITH" } ], [] ] }
]
}
}
]
}
],
"source": { "tools": [ "SmartPy" ], "location": "https://gitlab.com/smondet/fa2-smartpy.git" },
"permissions": { "operator": "owner-or-operator-transfer", "receiver": "owner-no-hook", "sender": "owner-no-hook" },
"fa2-smartpy": {
"configuration": {
"add_mutez_transfer": false,
"allow_self_transfer": false,
"assume_consecutive_token_ids": true,
"force_layouts": true,
"lazy_entry_points": false,
"name": "FA2-debug",
"non_fungible": false,
"readable": true,
"single_asset": false,
"store_total_supply": true,
"support_operator": true,
"use_token_metadata_offchain_view": false
}
}
}
Contract
New contract: KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC
Balance: 0.000000
Storage:
| Last |
Code:
import smartpy as spclass Contract(sp.Contract):
def __init__(self):
self.init_type(sp.TRecord(last = sp.TOption(sp.TNat)).layout("last"))
self.init(last = sp.none)
@sp.entry_point
def target(self, params):
def target(self, params):
self.data.last = sp.some(params)
@sp.entry_point
def targetNat(self, params):
def targetNat(self, params):
sp.set_type(params, sp.TNat)
self.data.last = sp.some(params)
self.data.last = sp.some(params)
Storage:
{last: sp.TOption(sp.TNat);
}.layout("last")
Entry points:
| target sp.TNat| targetNat sp.TNat
Generated Michelson:
Sizes
| Storage: | 2 Bytes | |
| Code: | 89 Bytes |
Initial Storage
None
Michelson Code
parameter (or (nat %target) (nat %targetNat));
storage (option nat);
storage (option nat);
code
{
CAST (pair (or nat nat) (option nat)); # pair (or nat nat) (option nat)
CAR; # or nat nat
IF_LEFT
{
# == target ==
# self.data.last = sp.some(params) # nat
SOME; # option nat
}
{
# == targetNat ==
# self.data.last = sp.some(params) # nat
SOME; # option nat
}; # option nat
NIL operation; # list operation : option nat
PAIR; # pair (list operation) (option nat)
};
{
CAST (pair (or nat nat) (option nat)); # pair (or nat nat) (option nat)
CAR; # or nat nat
IF_LEFT
{
# == target ==
# self.data.last = sp.some(params) # nat
SOME; # option nat
}
{
# == targetNat ==
# self.data.last = sp.some(params) # nat
SOME; # option nat
}; # option nat
NIL operation; # list operation : option nat
PAIR; # pair (list operation) (option nat)
};
Initial Storage
{ "prim": "None" }
JSON Representation
[
{ "prim": "storage", "args": [ { "prim": "option", "args": [ { "prim": "nat" } ] } ] },
{ "prim": "parameter", "args": [ { "prim": "or", "args": [ { "prim": "nat", "annots": [ "%target" ] }, { "prim": "nat", "annots": [ "%targetNat" ] } ] } ] },
{
"prim": "code",
"args": [
[
{
"prim": "CAST",
"args": [ { "prim": "pair", "args": [ { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, { "prim": "option", "args": [ { "prim": "nat" } ] } ] } ]
},
{ "prim": "CAR" },
{ "prim": "IF_LEFT", "args": [ [ { "prim": "SOME" } ], [ { "prim": "SOME" } ] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
}
]
{ "prim": "storage", "args": [ { "prim": "option", "args": [ { "prim": "nat" } ] } ] },
{ "prim": "parameter", "args": [ { "prim": "or", "args": [ { "prim": "nat", "annots": [ "%target" ] }, { "prim": "nat", "annots": [ "%targetNat" ] } ] } ] },
{
"prim": "code",
"args": [
[
{
"prim": "CAST",
"args": [ { "prim": "pair", "args": [ { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, { "prim": "option", "args": [ { "prim": "nat" } ] } ] } ]
},
{ "prim": "CAR" },
{ "prim": "IF_LEFT", "args": [ [ { "prim": "SOME" } ], [ { "prim": "SOME" } ] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
}
]
Contract
New contract: KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
Balance: 0.000000
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | CurrentCash | ExpScale | Fa2_TokenAddress | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TokenId | TotalBorrows | TotalReserves | TotalSupply | ||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | False |
Code:
import smartpy as spclass Contract(sp.Contract):
def __init__(self):
self.init_type(sp.TRecord(accrualBlockNumber = sp.TNat, accrualIntPeriodRelevance = sp.TNat, activeOperations = sp.TSet(sp.TNat), administrator = sp.TAddress, balances = sp.TBigMap(sp.TAddress, sp.TRecord(accountBorrows = sp.TRecord(interestIndex = sp.TNat, principal = sp.TNat).layout(("interestIndex", "principal")), approvals = sp.TMap(sp.TAddress, sp.TNat), balance = sp.TNat).layout(("accountBorrows", ("approvals", "balance")))), borrowIndex = sp.TNat, borrowRateMaxMantissa = sp.TNat, borrowRatePerBlock = sp.TNat, comptroller = sp.TAddress, currentCash = sp.TNat, expScale = sp.TNat, fa2_TokenAddress = sp.TAddress, halfExpScale = sp.TNat, initialExchangeRateMantissa = sp.TNat, interestRateModel = sp.TAddress, isAccrualInterestValid = sp.TBool, pendingAdministrator = sp.TOption(sp.TAddress), reserveFactorMantissa = sp.TNat, reserveFactorMaxMantissa = sp.TNat, supplyRatePerBlock = sp.TNat, tokenId = sp.TNat, totalBorrows = sp.TNat, totalReserves = sp.TNat, totalSupply = sp.TNat).layout((((("accrualBlockNumber", ("accrualIntPeriodRelevance", "activeOperations")), ("administrator", ("balances", "borrowIndex"))), (("borrowRateMaxMantissa", ("borrowRatePerBlock", "comptroller")), ("currentCash", ("expScale", "fa2_TokenAddress")))), ((("halfExpScale", ("initialExchangeRateMantissa", "interestRateModel")), ("isAccrualInterestValid", ("pendingAdministrator", "reserveFactorMantissa"))), (("reserveFactorMaxMantissa", ("supplyRatePerBlock", "tokenId")), ("totalBorrows", ("totalReserves", "totalSupply")))))))
self.init(accrualBlockNumber = 0,
accrualIntPeriodRelevance = 5,
activeOperations = sp.set([]),
administrator = sp.address('tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5'),
balances = {},
borrowIndex = 1000000000000000000,
borrowRateMaxMantissa = 5000000000000,
borrowRatePerBlock = 0,
comptroller = sp.address('KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1'),
currentCash = 0,
expScale = 1000000000000000000,
fa2_TokenAddress = sp.address('KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H'),
halfExpScale = 500000000000000000,
initialExchangeRateMantissa = 1000000000000000000,
interestRateModel = sp.address('KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF'),
isAccrualInterestValid = False,
pendingAdministrator = sp.none,
reserveFactorMantissa = 0,
reserveFactorMaxMantissa = 1000000000000000000,
supplyRatePerBlock = 0,
tokenId = 0,
totalBorrows = 0,
totalReserves = 0,
totalSupply = 0)
accrualIntPeriodRelevance = 5,
activeOperations = sp.set([]),
administrator = sp.address('tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5'),
balances = {},
borrowIndex = 1000000000000000000,
borrowRateMaxMantissa = 5000000000000,
borrowRatePerBlock = 0,
comptroller = sp.address('KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1'),
currentCash = 0,
expScale = 1000000000000000000,
fa2_TokenAddress = sp.address('KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H'),
halfExpScale = 500000000000000000,
initialExchangeRateMantissa = 1000000000000000000,
interestRateModel = sp.address('KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF'),
isAccrualInterestValid = False,
pendingAdministrator = sp.none,
reserveFactorMantissa = 0,
reserveFactorMaxMantissa = 1000000000000000000,
supplyRatePerBlock = 0,
tokenId = 0,
totalBorrows = 0,
totalReserves = 0,
totalSupply = 0)
@sp.entry_point
def acceptGovernance(self, params):
def acceptGovernance(self, params):
sp.set_type(params, sp.TUnit)
sp.verify(sp.sender == self.data.pendingAdministrator.open_some(message = 'CT_NOT_SET_PENDING_ADMIN'), 'CT_NOT_PENDING_ADMIN')
self.data.administrator = self.data.pendingAdministrator.open_some()
self.data.pendingAdministrator = sp.none
sp.verify(sp.sender == self.data.pendingAdministrator.open_some(message = 'CT_NOT_SET_PENDING_ADMIN'), 'CT_NOT_PENDING_ADMIN')
self.data.administrator = self.data.pendingAdministrator.open_some()
self.data.pendingAdministrator = sp.none
@sp.entry_point
def accrueInterest(self, params):
def accrueInterest(self, params):
sp.set_type(params, sp.TUnit)
compute_CFA2_43 = sp.local("compute_CFA2_43", (self.data.currentCash + self.data.totalSupply) + self.data.totalReserves)
sp.if compute_CFA2_43.value > 0:
self.data.activeOperations.add(13)
sp.transfer(sp.record(requests = sp.list([sp.record(owner = sp.self_address, token_id = self.data.tokenId)]), callback = sp.self_entry_point('setCash')), sp.tez(0), sp.contract(sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")), self.data.fa2_TokenAddress, entry_point='balance_of').open_some())
sp.if self.data.accrualBlockNumber == 0:
self.data.accrualBlockNumber = sp.level
sp.if sp.level != self.data.accrualBlockNumber:
self.data.activeOperations.add(8)
sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = self.data.currentCash, cb = sp.self_entry_point('doAccrueInterest'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getBorrowRate').open_some())
self.data.isAccrualInterestValid = True
compute_CFA2_43 = sp.local("compute_CFA2_43", (self.data.currentCash + self.data.totalSupply) + self.data.totalReserves)
sp.if compute_CFA2_43.value > 0:
self.data.activeOperations.add(13)
sp.transfer(sp.record(requests = sp.list([sp.record(owner = sp.self_address, token_id = self.data.tokenId)]), callback = sp.self_entry_point('setCash')), sp.tez(0), sp.contract(sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")), self.data.fa2_TokenAddress, entry_point='balance_of').open_some())
sp.if self.data.accrualBlockNumber == 0:
self.data.accrualBlockNumber = sp.level
sp.if sp.level != self.data.accrualBlockNumber:
self.data.activeOperations.add(8)
sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = self.data.currentCash, cb = sp.self_entry_point('doAccrueInterest'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getBorrowRate').open_some())
self.data.isAccrualInterestValid = True
@sp.entry_point
def addReserves(self, params):
def addReserves(self, params):
sp.set_type(params, sp.TNat)
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(11)
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest'))
sp.transfer(sp.record(addAmount = params, originalSender = sp.sender), sp.amount, sp.self_entry_point('addReservesInternal'))
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(11)
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest'))
sp.transfer(sp.record(addAmount = params, originalSender = sp.sender), sp.amount, sp.self_entry_point('addReservesInternal'))
@sp.entry_point
def addReservesInternal(self, params):
def addReservesInternal(self, params):
sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION')
sp.verify(self.data.activeOperations.contains(11), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(11)
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
sp.transfer(sp.list([sp.record(from_ = params.originalSender, txs = sp.list([sp.record(to_ = sp.self_address, token_id = self.data.tokenId, amount = params.addAmount)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some())
self.data.totalReserves += params.addAmount
self.data.isAccrualInterestValid = False
sp.verify(self.data.activeOperations.contains(11), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(11)
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
sp.transfer(sp.list([sp.record(from_ = params.originalSender, txs = sp.list([sp.record(to_ = sp.self_address, token_id = self.data.tokenId, amount = params.addAmount)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some())
self.data.totalReserves += params.addAmount
self.data.isAccrualInterestValid = False
@sp.entry_point
def approve(self, params):
def approve(self, params):
sp.set_type(params, sp.TRecord(spender = sp.TAddress, value = sp.TNat).layout(("spender", "value")))
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.verify((self.data.balances[sp.sender].approvals.get(params.spender, default_value = 0) == 0) | (params.value == 0), 'CT_UNSAFE_ALLOWANCE_CHANGE')
self.data.balances[sp.sender].approvals[params.spender] = params.value
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.verify((self.data.balances[sp.sender].approvals.get(params.spender, default_value = 0) == 0) | (params.value == 0), 'CT_UNSAFE_ALLOWANCE_CHANGE')
self.data.balances[sp.sender].approvals[params.spender] = params.value
@sp.entry_point
def borrow(self, params):
def borrow(self, params):
sp.set_type(params, sp.TNat)
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.if ~ (self.data.balances.contains(sp.sender)):
self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0)
sp.transfer(sp.record(cToken = sp.self_address, borrower = sp.sender, borrowAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), self.data.comptroller, entry_point='borrowAllowed').open_some())
sp.verify(self.data.currentCash >= params, 'CT_INSUFFICIENT_CASH')
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = sp.sender, token_id = self.data.tokenId, amount = params)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some())
borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.sender].accountBorrows)
borrowBalance = sp.local("borrowBalance", 0)
sp.if borrowSnapshot.value.principal > 0:
borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex
self.data.balances[sp.sender].accountBorrows.principal = borrowBalance.value + params
self.data.balances[sp.sender].accountBorrows.interestIndex = self.data.borrowIndex
self.data.totalBorrows += borrowBalance.value + params
self.data.isAccrualInterestValid = False
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.if ~ (self.data.balances.contains(sp.sender)):
self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0)
sp.transfer(sp.record(cToken = sp.self_address, borrower = sp.sender, borrowAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), self.data.comptroller, entry_point='borrowAllowed').open_some())
sp.verify(self.data.currentCash >= params, 'CT_INSUFFICIENT_CASH')
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = sp.sender, token_id = self.data.tokenId, amount = params)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some())
borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.sender].accountBorrows)
borrowBalance = sp.local("borrowBalance", 0)
sp.if borrowSnapshot.value.principal > 0:
borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex
self.data.balances[sp.sender].accountBorrows.principal = borrowBalance.value + params
self.data.balances[sp.sender].accountBorrows.interestIndex = self.data.borrowIndex
self.data.totalBorrows += borrowBalance.value + params
self.data.isAccrualInterestValid = False
@sp.entry_point
def borrowBalanceStored(self, params):
def borrowBalanceStored(self, params):
sp.set_type(sp.fst(params), sp.TAddress)
borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.fst(params)].accountBorrows)
borrowBalance = sp.local("borrowBalance", 0)
sp.if borrowSnapshot.value.principal > 0:
borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex
__s1 = sp.local("__s1", borrowBalance.value)
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s1.value, sp.tez(0), sp.snd(params))
borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.fst(params)].accountBorrows)
borrowBalance = sp.local("borrowBalance", 0)
sp.if borrowSnapshot.value.principal > 0:
borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex
__s1 = sp.local("__s1", borrowBalance.value)
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s1.value, sp.tez(0), sp.snd(params))
@sp.entry_point
def doAccrueInterest(self, params):
def doAccrueInterest(self, params):
sp.set_type(params, sp.TNat)
sp.verify(sp.sender == self.data.interestRateModel, 'CT_SENDER_NOT_IRM')
sp.verify(self.data.activeOperations.contains(8), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(8)
sp.verify(params <= self.data.borrowRateMaxMantissa, 'CT_INVALID_BORROW_RATE')
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.as_nat(sp.level - self.data.accrualBlockNumber), sp.TNat)
sp.set_type(params * sp.as_nat(sp.level - self.data.accrualBlockNumber), sp.TNat)
compute_CToken_545 = sp.local("compute_CToken_545", sp.record(mantissa = params * sp.as_nat(sp.level - self.data.accrualBlockNumber)))
sp.set_type(compute_CToken_545.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(compute_CToken_545.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalBorrows, sp.TNat)
sp.set_type(compute_CToken_545.value.mantissa * self.data.totalBorrows, sp.TNat)
sp.set_type(sp.record(mantissa = compute_CToken_545.value.mantissa * self.data.totalBorrows), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_546 = sp.local("compute_CToken_546", (compute_CToken_545.value.mantissa * self.data.totalBorrows) // self.data.expScale)
self.data.totalBorrows = compute_CToken_546.value + self.data.totalBorrows
sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(compute_CToken_546.value, sp.TNat)
sp.set_type(self.data.totalReserves, sp.TNat)
sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(compute_CToken_546.value, sp.TNat)
sp.set_type(self.data.reserveFactorMantissa * compute_CToken_546.value, sp.TNat)
sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa * compute_CToken_546.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
self.data.totalReserves = ((self.data.reserveFactorMantissa * compute_CToken_546.value) // self.data.expScale) + self.data.totalReserves
sp.set_type(compute_CToken_545.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.borrowIndex, sp.TNat)
sp.set_type(self.data.borrowIndex, sp.TNat)
sp.set_type(compute_CToken_545.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(compute_CToken_545.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.borrowIndex, sp.TNat)
sp.set_type(compute_CToken_545.value.mantissa * self.data.borrowIndex, sp.TNat)
sp.set_type(sp.record(mantissa = compute_CToken_545.value.mantissa * self.data.borrowIndex), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
self.data.borrowIndex = ((compute_CToken_545.value.mantissa * self.data.borrowIndex) // self.data.expScale) + self.data.borrowIndex
self.data.accrualBlockNumber = sp.level
sp.verify(sp.sender == self.data.interestRateModel, 'CT_SENDER_NOT_IRM')
sp.verify(self.data.activeOperations.contains(8), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(8)
sp.verify(params <= self.data.borrowRateMaxMantissa, 'CT_INVALID_BORROW_RATE')
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.as_nat(sp.level - self.data.accrualBlockNumber), sp.TNat)
sp.set_type(params * sp.as_nat(sp.level - self.data.accrualBlockNumber), sp.TNat)
compute_CToken_545 = sp.local("compute_CToken_545", sp.record(mantissa = params * sp.as_nat(sp.level - self.data.accrualBlockNumber)))
sp.set_type(compute_CToken_545.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(compute_CToken_545.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalBorrows, sp.TNat)
sp.set_type(compute_CToken_545.value.mantissa * self.data.totalBorrows, sp.TNat)
sp.set_type(sp.record(mantissa = compute_CToken_545.value.mantissa * self.data.totalBorrows), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_546 = sp.local("compute_CToken_546", (compute_CToken_545.value.mantissa * self.data.totalBorrows) // self.data.expScale)
self.data.totalBorrows = compute_CToken_546.value + self.data.totalBorrows
sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(compute_CToken_546.value, sp.TNat)
sp.set_type(self.data.totalReserves, sp.TNat)
sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(compute_CToken_546.value, sp.TNat)
sp.set_type(self.data.reserveFactorMantissa * compute_CToken_546.value, sp.TNat)
sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa * compute_CToken_546.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
self.data.totalReserves = ((self.data.reserveFactorMantissa * compute_CToken_546.value) // self.data.expScale) + self.data.totalReserves
sp.set_type(compute_CToken_545.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.borrowIndex, sp.TNat)
sp.set_type(self.data.borrowIndex, sp.TNat)
sp.set_type(compute_CToken_545.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(compute_CToken_545.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.borrowIndex, sp.TNat)
sp.set_type(compute_CToken_545.value.mantissa * self.data.borrowIndex, sp.TNat)
sp.set_type(sp.record(mantissa = compute_CToken_545.value.mantissa * self.data.borrowIndex), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
self.data.borrowIndex = ((compute_CToken_545.value.mantissa * self.data.borrowIndex) // self.data.expScale) + self.data.borrowIndex
self.data.accrualBlockNumber = sp.level
@sp.entry_point
def exchangeRateStored(self, params):
def exchangeRateStored(self, params):
sp.set_type(sp.fst(params), sp.TUnit)
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(self.data.currentCash, sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
__s2 = sp.local("__s2", excRate.value)
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s2.value, sp.tez(0), sp.snd(params))
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(self.data.currentCash, sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
__s2 = sp.local("__s2", excRate.value)
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s2.value, sp.tez(0), sp.snd(params))
@sp.entry_point
def getAccountSnapshot(self, params):
def getAccountSnapshot(self, params):
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.fst(params)].accountBorrows)
borrowBalance = sp.local("borrowBalance", 0)
sp.if borrowSnapshot.value.principal > 0:
borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(self.data.currentCash, sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
__s3 = sp.local("__s3", sp.record(account = sp.fst(params), borrowBalance = borrowBalance.value, cTokenBalance = self.data.balances[sp.fst(params)].balance, exchangeRateMantissa = excRate.value))
sp.set_type(sp.snd(params), sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))))
sp.transfer(__s3.value, sp.tez(0), sp.snd(params))
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.fst(params)].accountBorrows)
borrowBalance = sp.local("borrowBalance", 0)
sp.if borrowSnapshot.value.principal > 0:
borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(self.data.currentCash, sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
__s3 = sp.local("__s3", sp.record(account = sp.fst(params), borrowBalance = borrowBalance.value, cTokenBalance = self.data.balances[sp.fst(params)].balance, exchangeRateMantissa = excRate.value))
sp.set_type(sp.snd(params), sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))))
sp.transfer(__s3.value, sp.tez(0), sp.snd(params))
@sp.entry_point
def getAllowance(self, params):
def getAllowance(self, params):
__s4 = sp.local("__s4", self.data.balances[sp.fst(params).owner].approvals[sp.fst(params).spender])
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s4.value, sp.tez(0), sp.snd(params))
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s4.value, sp.tez(0), sp.snd(params))
@sp.entry_point
def getBalance(self, params):
def getBalance(self, params):
__s5 = sp.local("__s5", self.data.balances[sp.fst(params)].balance)
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s5.value, sp.tez(0), sp.snd(params))
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s5.value, sp.tez(0), sp.snd(params))
@sp.entry_point
def getBalanceOfUnderlying(self, params):
def getBalanceOfUnderlying(self, params):
sp.set_type(sp.fst(params), sp.TAddress)
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(self.data.currentCash, sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.balances[sp.fst(params)].balance, sp.TNat)
sp.set_type(excRate.value * self.data.balances[sp.fst(params)].balance, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * self.data.balances[sp.fst(params)].balance), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
__s6 = sp.local("__s6", (excRate.value * self.data.balances[sp.fst(params)].balance) // self.data.expScale)
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s6.value, sp.tez(0), sp.snd(params))
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(self.data.currentCash, sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.balances[sp.fst(params)].balance, sp.TNat)
sp.set_type(excRate.value * self.data.balances[sp.fst(params)].balance, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * self.data.balances[sp.fst(params)].balance), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
__s6 = sp.local("__s6", (excRate.value * self.data.balances[sp.fst(params)].balance) // self.data.expScale)
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s6.value, sp.tez(0), sp.snd(params))
@sp.entry_point
def getCash(self, params):
def getCash(self, params):
sp.set_type(sp.fst(params), sp.TUnit)
__s7 = sp.local("__s7", self.data.currentCash)
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s7.value, sp.tez(0), sp.snd(params))
__s7 = sp.local("__s7", self.data.currentCash)
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s7.value, sp.tez(0), sp.snd(params))
@sp.entry_point
def getTotalSupply(self, params):
def getTotalSupply(self, params):
sp.set_type(sp.fst(params), sp.TUnit)
__s8 = sp.local("__s8", self.data.totalSupply)
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s8.value, sp.tez(0), sp.snd(params))
__s8 = sp.local("__s8", self.data.totalSupply)
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s8.value, sp.tez(0), sp.snd(params))
@sp.entry_point
def hardResetOp(self, params):
def hardResetOp(self, params):
sp.set_type(params, sp.TUnit)
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
self.data.activeOperations = sp.set([])
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
self.data.activeOperations = sp.set([])
@sp.entry_point
def mint(self, params):
def mint(self, params):
sp.set_type(params, sp.TNat)
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.if ~ (self.data.balances.contains(sp.sender)):
self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0)
sp.transfer(sp.record(cToken = sp.self_address, minter = sp.sender, mintAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), self.data.comptroller, entry_point='mintAllowed').open_some())
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(to_ = sp.self_address, token_id = self.data.tokenId, amount = params)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some())
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(self.data.currentCash, sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
amount = sp.local("amount", 0)
sp.if True:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO')
compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value)
amount.value = compute_CToken_747.value
sp.else:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(params, sp.TNat)
sp.set_type(excRate.value * params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale)
amount.value = compute_CToken_749.value
self.data.totalSupply += amount.value
self.data.balances[sp.sender].balance += amount.value
self.data.isAccrualInterestValid = False
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.if ~ (self.data.balances.contains(sp.sender)):
self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0)
sp.transfer(sp.record(cToken = sp.self_address, minter = sp.sender, mintAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), self.data.comptroller, entry_point='mintAllowed').open_some())
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(to_ = sp.self_address, token_id = self.data.tokenId, amount = params)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some())
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(self.data.currentCash, sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
amount = sp.local("amount", 0)
sp.if True:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO')
compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value)
amount.value = compute_CToken_747.value
sp.else:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(params, sp.TNat)
sp.set_type(excRate.value * params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale)
amount.value = compute_CToken_749.value
self.data.totalSupply += amount.value
self.data.balances[sp.sender].balance += amount.value
self.data.isAccrualInterestValid = False
@sp.entry_point
def redeem(self, params):
def redeem(self, params):
sp.set_type(params, sp.TNat)
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.transfer(sp.record(cToken = sp.self_address, redeemer = sp.sender, redeemAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entry_point='redeemAllowed').open_some())
redeem_amount = sp.local("redeem_amount", 0)
sp.if False:
redeem_amount.value = params
sp.else:
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(self.data.currentCash, sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
amount = sp.local("amount", 0)
sp.if False:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO')
compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value)
amount.value = compute_CToken_747.value
sp.else:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(params, sp.TNat)
sp.set_type(excRate.value * params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale)
amount.value = compute_CToken_749.value
redeem_amount.value = amount.value
redeem_tokens = sp.local("redeem_tokens", 0)
sp.if False:
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(self.data.currentCash, sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
amount = sp.local("amount", 0)
sp.if True:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO')
compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value)
amount.value = compute_CToken_747.value
sp.else:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(params, sp.TNat)
sp.set_type(excRate.value * params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale)
amount.value = compute_CToken_749.value
redeem_tokens.value = amount.value
sp.else:
redeem_tokens.value = params
sp.verify(self.data.currentCash >= redeem_amount.value, 'CT_INSUFFICIENT_CASH')
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply')
self.data.balances[sp.sender].balance = sp.as_nat(self.data.balances[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance')
sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = sp.sender, token_id = self.data.tokenId, amount = redeem_amount.value)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some())
self.data.isAccrualInterestValid = False
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.transfer(sp.record(cToken = sp.self_address, redeemer = sp.sender, redeemAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entry_point='redeemAllowed').open_some())
redeem_amount = sp.local("redeem_amount", 0)
sp.if False:
redeem_amount.value = params
sp.else:
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(self.data.currentCash, sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
amount = sp.local("amount", 0)
sp.if False:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO')
compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value)
amount.value = compute_CToken_747.value
sp.else:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(params, sp.TNat)
sp.set_type(excRate.value * params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale)
amount.value = compute_CToken_749.value
redeem_amount.value = amount.value
redeem_tokens = sp.local("redeem_tokens", 0)
sp.if False:
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(self.data.currentCash, sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
amount = sp.local("amount", 0)
sp.if True:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO')
compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value)
amount.value = compute_CToken_747.value
sp.else:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(params, sp.TNat)
sp.set_type(excRate.value * params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale)
amount.value = compute_CToken_749.value
redeem_tokens.value = amount.value
sp.else:
redeem_tokens.value = params
sp.verify(self.data.currentCash >= redeem_amount.value, 'CT_INSUFFICIENT_CASH')
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply')
self.data.balances[sp.sender].balance = sp.as_nat(self.data.balances[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance')
sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = sp.sender, token_id = self.data.tokenId, amount = redeem_amount.value)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some())
self.data.isAccrualInterestValid = False
@sp.entry_point
def redeemUnderlying(self, params):
def redeemUnderlying(self, params):
sp.set_type(params, sp.TNat)
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.transfer(sp.record(cToken = sp.self_address, redeemer = sp.sender, redeemAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entry_point='redeemAllowed').open_some())
redeem_amount = sp.local("redeem_amount", 0)
sp.if True:
redeem_amount.value = params
sp.else:
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(self.data.currentCash, sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
amount = sp.local("amount", 0)
sp.if False:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO')
compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value)
amount.value = compute_CToken_747.value
sp.else:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(params, sp.TNat)
sp.set_type(excRate.value * params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale)
amount.value = compute_CToken_749.value
redeem_amount.value = amount.value
redeem_tokens = sp.local("redeem_tokens", 0)
sp.if True:
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(self.data.currentCash, sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
amount = sp.local("amount", 0)
sp.if True:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO')
compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value)
amount.value = compute_CToken_747.value
sp.else:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(params, sp.TNat)
sp.set_type(excRate.value * params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale)
amount.value = compute_CToken_749.value
redeem_tokens.value = amount.value
sp.else:
redeem_tokens.value = params
sp.verify(self.data.currentCash >= redeem_amount.value, 'CT_INSUFFICIENT_CASH')
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply')
self.data.balances[sp.sender].balance = sp.as_nat(self.data.balances[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance')
sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = sp.sender, token_id = self.data.tokenId, amount = redeem_amount.value)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some())
self.data.isAccrualInterestValid = False
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.transfer(sp.record(cToken = sp.self_address, redeemer = sp.sender, redeemAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entry_point='redeemAllowed').open_some())
redeem_amount = sp.local("redeem_amount", 0)
sp.if True:
redeem_amount.value = params
sp.else:
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(self.data.currentCash, sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
amount = sp.local("amount", 0)
sp.if False:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO')
compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value)
amount.value = compute_CToken_747.value
sp.else:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(params, sp.TNat)
sp.set_type(excRate.value * params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale)
amount.value = compute_CToken_749.value
redeem_amount.value = amount.value
redeem_tokens = sp.local("redeem_tokens", 0)
sp.if True:
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(self.data.currentCash, sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
amount = sp.local("amount", 0)
sp.if True:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO')
compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value)
amount.value = compute_CToken_747.value
sp.else:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(params, sp.TNat)
sp.set_type(excRate.value * params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale)
amount.value = compute_CToken_749.value
redeem_tokens.value = amount.value
sp.else:
redeem_tokens.value = params
sp.verify(self.data.currentCash >= redeem_amount.value, 'CT_INSUFFICIENT_CASH')
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply')
self.data.balances[sp.sender].balance = sp.as_nat(self.data.balances[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance')
sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = sp.sender, token_id = self.data.tokenId, amount = redeem_amount.value)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some())
self.data.isAccrualInterestValid = False
@sp.entry_point
def reduceReserves(self, params):
def reduceReserves(self, params):
sp.set_type(params, sp.TNat)
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(12)
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest'))
sp.transfer(params, sp.amount, sp.self_entry_point('reduceReservesInternal'))
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(12)
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest'))
sp.transfer(params, sp.amount, sp.self_entry_point('reduceReservesInternal'))
@sp.entry_point
def reduceReservesInternal(self, params):
def reduceReservesInternal(self, params):
sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION')
sp.verify(self.data.activeOperations.contains(12), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(12)
sp.verify(self.data.currentCash >= params, 'CT_INSUFFICIENT_CASH')
sp.verify(params <= self.data.totalReserves, 'CT_REDUCE_AMOUNT')
sp.set_type(self.data.totalReserves, sp.TNat)
sp.set_type(params, sp.TNat)
self.data.totalReserves = sp.as_nat(self.data.totalReserves - params, message = 'SUBTRACTION_UNDERFLOW')
sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = self.data.administrator, token_id = self.data.tokenId, amount = params)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some())
self.data.isAccrualInterestValid = False
sp.verify(self.data.activeOperations.contains(12), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(12)
sp.verify(self.data.currentCash >= params, 'CT_INSUFFICIENT_CASH')
sp.verify(params <= self.data.totalReserves, 'CT_REDUCE_AMOUNT')
sp.set_type(self.data.totalReserves, sp.TNat)
sp.set_type(params, sp.TNat)
self.data.totalReserves = sp.as_nat(self.data.totalReserves - params, message = 'SUBTRACTION_UNDERFLOW')
sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = self.data.administrator, token_id = self.data.tokenId, amount = params)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some())
self.data.isAccrualInterestValid = False
@sp.entry_point
def removePendingGovernance(self, params):
def removePendingGovernance(self, params):
sp.set_type(params, sp.TUnit)
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
self.data.pendingAdministrator = sp.none
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
self.data.pendingAdministrator = sp.none
@sp.entry_point
def repayBorrow(self, params):
def repayBorrow(self, params):
sp.set_type(params, sp.TNat)
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.if ~ (self.data.balances.contains(sp.sender)):
self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0)
sp.transfer(sp.record(cToken = sp.self_address, payer = sp.sender, borrower = sp.sender, repayAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entry_point='repayBorrowAllowed').open_some())
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.sender].accountBorrows)
borrowBalance = sp.local("borrowBalance", 0)
sp.if borrowSnapshot.value.principal > 0:
borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex
sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(to_ = sp.self_address, token_id = self.data.tokenId, amount = sp.min(borrowBalance.value, params))]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some())
sp.set_type(borrowBalance.value, sp.TNat)
sp.set_type(sp.min(borrowBalance.value, params), sp.TNat)
self.data.balances[sp.sender].accountBorrows.principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW')
self.data.balances[sp.sender].accountBorrows.interestIndex = self.data.borrowIndex
sp.set_type(self.data.totalBorrows, sp.TNat)
sp.set_type(sp.min(borrowBalance.value, params), sp.TNat)
self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW')
self.data.isAccrualInterestValid = False
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.if ~ (self.data.balances.contains(sp.sender)):
self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0)
sp.transfer(sp.record(cToken = sp.self_address, payer = sp.sender, borrower = sp.sender, repayAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entry_point='repayBorrowAllowed').open_some())
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.sender].accountBorrows)
borrowBalance = sp.local("borrowBalance", 0)
sp.if borrowSnapshot.value.principal > 0:
borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex
sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(to_ = sp.self_address, token_id = self.data.tokenId, amount = sp.min(borrowBalance.value, params))]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some())
sp.set_type(borrowBalance.value, sp.TNat)
sp.set_type(sp.min(borrowBalance.value, params), sp.TNat)
self.data.balances[sp.sender].accountBorrows.principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW')
self.data.balances[sp.sender].accountBorrows.interestIndex = self.data.borrowIndex
sp.set_type(self.data.totalBorrows, sp.TNat)
sp.set_type(sp.min(borrowBalance.value, params), sp.TNat)
self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW')
self.data.isAccrualInterestValid = False
@sp.entry_point
def repayBorrowBehalf(self, params):
def repayBorrowBehalf(self, params):
sp.set_type(params, sp.TRecord(borrower = sp.TAddress, repayAmount = sp.TNat).layout(("borrower", "repayAmount")))
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.if ~ (self.data.balances.contains(sp.sender)):
self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0)
sp.transfer(sp.record(cToken = sp.self_address, payer = sp.sender, borrower = params.borrower, repayAmount = params.repayAmount), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entry_point='repayBorrowAllowed').open_some())
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[params.borrower].accountBorrows)
borrowBalance = sp.local("borrowBalance", 0)
sp.if borrowSnapshot.value.principal > 0:
borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex
sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(to_ = sp.self_address, token_id = self.data.tokenId, amount = sp.min(borrowBalance.value, params.repayAmount))]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some())
sp.set_type(borrowBalance.value, sp.TNat)
sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat)
self.data.balances[params.borrower].accountBorrows.principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW')
self.data.balances[params.borrower].accountBorrows.interestIndex = self.data.borrowIndex
sp.set_type(self.data.totalBorrows, sp.TNat)
sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat)
self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW')
self.data.isAccrualInterestValid = False
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.if ~ (self.data.balances.contains(sp.sender)):
self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0)
sp.transfer(sp.record(cToken = sp.self_address, payer = sp.sender, borrower = params.borrower, repayAmount = params.repayAmount), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entry_point='repayBorrowAllowed').open_some())
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[params.borrower].accountBorrows)
borrowBalance = sp.local("borrowBalance", 0)
sp.if borrowSnapshot.value.principal > 0:
borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex
sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(to_ = sp.self_address, token_id = self.data.tokenId, amount = sp.min(borrowBalance.value, params.repayAmount))]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some())
sp.set_type(borrowBalance.value, sp.TNat)
sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat)
self.data.balances[params.borrower].accountBorrows.principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW')
self.data.balances[params.borrower].accountBorrows.interestIndex = self.data.borrowIndex
sp.set_type(self.data.totalBorrows, sp.TNat)
sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat)
self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW')
self.data.isAccrualInterestValid = False
@sp.entry_point
def setAccrualIntPeriodRelevance(self, params):
def setAccrualIntPeriodRelevance(self, params):
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
sp.set_type(params, sp.TNat)
self.data.accrualIntPeriodRelevance = params
sp.set_type(params, sp.TNat)
self.data.accrualIntPeriodRelevance = params
@sp.entry_point
def setBorrowRatePerBlock(self, params):
def setBorrowRatePerBlock(self, params):
sp.verify(sp.sender == self.data.interestRateModel, 'CT_SENDER_NOT_IRM')
sp.verify(self.data.activeOperations.contains(6), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(6)
self.data.borrowRatePerBlock = params
sp.verify(self.data.activeOperations.contains(6), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(6)
self.data.borrowRatePerBlock = params
@sp.entry_point
def setCash(self, params):
def setCash(self, params):
sp.set_type(params, sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance"))))
sp.verify(self.data.activeOperations.contains(13), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(13)
sp.verify(sp.sender == self.data.fa2_TokenAddress, 'CT_INVALID_CASH_SENDER')
sp.verify(sp.len(params) == 1, 'CT_INVALID_CASH_DATA')
sp.for cash in params:
sp.verify(cash.request.token_id == self.data.tokenId, 'CT_INVALID_CASH_DATA')
sp.verify(cash.request.owner == sp.self_address, 'CT_INVALID_CASH_DATA')
self.data.currentCash = cash.balance
sp.verify(self.data.activeOperations.contains(13), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(13)
sp.verify(sp.sender == self.data.fa2_TokenAddress, 'CT_INVALID_CASH_SENDER')
sp.verify(sp.len(params) == 1, 'CT_INVALID_CASH_DATA')
sp.for cash in params:
sp.verify(cash.request.token_id == self.data.tokenId, 'CT_INVALID_CASH_DATA')
sp.verify(cash.request.owner == sp.self_address, 'CT_INVALID_CASH_DATA')
self.data.currentCash = cash.balance
@sp.entry_point
def setComptroller(self, params):
def setComptroller(self, params):
sp.set_type(params, sp.TAddress)
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
self.data.comptroller = params
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
self.data.comptroller = params
@sp.entry_point
def setInterestRateModel(self, params):
def setInterestRateModel(self, params):
sp.set_type(params, sp.TAddress)
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(9)
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest'))
sp.transfer(params, sp.tez(0), sp.self_entry_point('setInterestRateModelInternal'))
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(9)
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest'))
sp.transfer(params, sp.tez(0), sp.self_entry_point('setInterestRateModelInternal'))
@sp.entry_point
def setInterestRateModelInternal(self, params):
def setInterestRateModelInternal(self, params):
sp.set_type(params, sp.TAddress)
sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION')
sp.verify(self.data.activeOperations.contains(9), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(9)
self.data.interestRateModel = params
sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION')
sp.verify(self.data.activeOperations.contains(9), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(9)
self.data.interestRateModel = params
@sp.entry_point
def setPendingGovernance(self, params):
def setPendingGovernance(self, params):
sp.set_type(params, sp.TAddress)
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
self.data.pendingAdministrator = sp.some(params)
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
self.data.pendingAdministrator = sp.some(params)
@sp.entry_point
def setReserveFactor(self, params):
def setReserveFactor(self, params):
sp.set_type(params, sp.TNat)
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(10)
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest'))
sp.transfer(params, sp.tez(0), sp.self_entry_point('setReserveFactorInternal'))
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(10)
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest'))
sp.transfer(params, sp.tez(0), sp.self_entry_point('setReserveFactorInternal'))
@sp.entry_point
def setReserveFactorInternal(self, params):
def setReserveFactorInternal(self, params):
sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION')
sp.verify(self.data.activeOperations.contains(10), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(10)
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
sp.verify(params <= self.data.reserveFactorMaxMantissa, 'CT_INVALID_RESERVE_FACTOR')
self.data.reserveFactorMantissa = params
self.data.isAccrualInterestValid = False
sp.verify(self.data.activeOperations.contains(10), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(10)
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
sp.verify(params <= self.data.reserveFactorMaxMantissa, 'CT_INVALID_RESERVE_FACTOR')
self.data.reserveFactorMantissa = params
self.data.isAccrualInterestValid = False
@sp.entry_point
def setSupplyRatePerBlock(self, params):
def setSupplyRatePerBlock(self, params):
sp.verify(sp.sender == self.data.interestRateModel, 'CT_SENDER_NOT_IRM')
sp.verify(self.data.activeOperations.contains(7), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(7)
self.data.supplyRatePerBlock = params
sp.verify(self.data.activeOperations.contains(7), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(7)
self.data.supplyRatePerBlock = params
@sp.entry_point
def sweepFA12(self, params):
def sweepFA12(self, params):
sp.set_type(params, sp.TRecord(amount = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", "tokenAddress")))
sp.transfer(sp.record(from_ = sp.self_address, to_ = self.data.administrator, value = params.amount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), params.tokenAddress, entry_point='transfer').open_some())
sp.transfer(sp.record(from_ = sp.self_address, to_ = self.data.administrator, value = params.amount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), params.tokenAddress, entry_point='transfer').open_some())
@sp.entry_point
def sweepFA2(self, params):
def sweepFA2(self, params):
sp.set_type(params, sp.TRecord(amount = sp.TNat, id = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", ("id", "tokenAddress"))))
sp.verify((params.tokenAddress != self.data.fa2_TokenAddress) | (params.id != self.data.tokenId), 'CT_SWEEP_UNDERLYING')
sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = self.data.administrator, token_id = params.id, amount = params.amount)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), params.tokenAddress, entry_point='transfer').open_some())
sp.verify((params.tokenAddress != self.data.fa2_TokenAddress) | (params.id != self.data.tokenId), 'CT_SWEEP_UNDERLYING')
sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = self.data.administrator, token_id = params.id, amount = params.amount)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), params.tokenAddress, entry_point='transfer').open_some())
@sp.entry_point
def sweepMutez(self, params):
def sweepMutez(self, params):
sp.set_type(params, sp.TBool)
sp.if params:
sp.send(self.data.administrator, sp.balance)
sp.else:
sp.send(self.data.administrator, sp.balance)
sp.if params:
sp.send(self.data.administrator, sp.balance)
sp.else:
sp.send(self.data.administrator, sp.balance)
@sp.entry_point
def transfer(self, params):
def transfer(self, params):
sp.set_type(params, sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))))
sp.verify((params.from_ == sp.sender) | (self.data.balances[params.from_].approvals[sp.sender] >= params.value), 'CT_TRANSFER_NOT_APPROVED')
sp.if ~ (self.data.balances.contains(params.to_)):
self.data.balances[params.to_] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0)
sp.transfer(sp.record(cToken = sp.self_address, src = params.from_, dst = params.to_, transferTokens = params.value), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))), self.data.comptroller, entry_point='transferAllowed').open_some())
sp.set_type(sp.record(from_ = params.from_, sender = sp.sender, to_ = params.to_, value = params.value), sp.TRecord(from_ = sp.TAddress, sender = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout((("from_", "sender"), ("to_", "value"))))
sp.verify(self.data.balances[params.from_].balance >= params.value, 'CT_INSUFFICIENT_BALANCE')
self.data.balances[params.from_].balance = sp.as_nat(self.data.balances[params.from_].balance - params.value)
self.data.balances[params.to_].balance += params.value
sp.if params.from_ != sp.sender:
self.data.balances[params.from_].approvals[sp.sender] = sp.as_nat(self.data.balances[params.from_].approvals[sp.sender] - params.value)
sp.verify((params.from_ == sp.sender) | (self.data.balances[params.from_].approvals[sp.sender] >= params.value), 'CT_TRANSFER_NOT_APPROVED')
sp.if ~ (self.data.balances.contains(params.to_)):
self.data.balances[params.to_] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0)
sp.transfer(sp.record(cToken = sp.self_address, src = params.from_, dst = params.to_, transferTokens = params.value), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))), self.data.comptroller, entry_point='transferAllowed').open_some())
sp.set_type(sp.record(from_ = params.from_, sender = sp.sender, to_ = params.to_, value = params.value), sp.TRecord(from_ = sp.TAddress, sender = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout((("from_", "sender"), ("to_", "value"))))
sp.verify(self.data.balances[params.from_].balance >= params.value, 'CT_INSUFFICIENT_BALANCE')
self.data.balances[params.from_].balance = sp.as_nat(self.data.balances[params.from_].balance - params.value)
self.data.balances[params.to_].balance += params.value
sp.if params.from_ != sp.sender:
self.data.balances[params.from_].approvals[sp.sender] = sp.as_nat(self.data.balances[params.from_].approvals[sp.sender] - params.value)
@sp.entry_point
def updateBorrowRateInternal(self, params):
def updateBorrowRateInternal(self, params):
sp.set_type(params, sp.TUnit)
sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION')
sp.verify(self.data.activeOperations.contains(6), 'OP_NOT_ACTIVE')
sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = self.data.currentCash, cb = sp.self_entry_point('setBorrowRatePerBlock'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getBorrowRate').open_some())
sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION')
sp.verify(self.data.activeOperations.contains(6), 'OP_NOT_ACTIVE')
sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = self.data.currentCash, cb = sp.self_entry_point('setBorrowRatePerBlock'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getBorrowRate').open_some())
@sp.entry_point
def updateBorrowRatePerBlock(self, params):
def updateBorrowRatePerBlock(self, params):
sp.set_type(params, sp.TUnit)
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(6)
compute_CFA2_43 = sp.local("compute_CFA2_43", (self.data.currentCash + self.data.totalSupply) + self.data.totalReserves)
sp.if compute_CFA2_43.value > 0:
self.data.activeOperations.add(13)
sp.transfer(sp.record(requests = sp.list([sp.record(owner = sp.self_address, token_id = self.data.tokenId)]), callback = sp.self_entry_point('setCash')), sp.tez(0), sp.contract(sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")), self.data.fa2_TokenAddress, entry_point='balance_of').open_some())
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('updateBorrowRateInternal'))
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(6)
compute_CFA2_43 = sp.local("compute_CFA2_43", (self.data.currentCash + self.data.totalSupply) + self.data.totalReserves)
sp.if compute_CFA2_43.value > 0:
self.data.activeOperations.add(13)
sp.transfer(sp.record(requests = sp.list([sp.record(owner = sp.self_address, token_id = self.data.tokenId)]), callback = sp.self_entry_point('setCash')), sp.tez(0), sp.contract(sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")), self.data.fa2_TokenAddress, entry_point='balance_of').open_some())
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('updateBorrowRateInternal'))
@sp.entry_point
def updateSupplyRateInternal(self, params):
def updateSupplyRateInternal(self, params):
sp.set_type(params, sp.TUnit)
sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION')
sp.verify(self.data.activeOperations.contains(7), 'OP_NOT_ACTIVE')
sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = self.data.currentCash, cb = sp.self_entry_point('setSupplyRatePerBlock'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getSupplyRate').open_some())
sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION')
sp.verify(self.data.activeOperations.contains(7), 'OP_NOT_ACTIVE')
sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = self.data.currentCash, cb = sp.self_entry_point('setSupplyRatePerBlock'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getSupplyRate').open_some())
@sp.entry_point
def updateSupplyRatePerBlock(self, params):
def updateSupplyRatePerBlock(self, params):
sp.set_type(params, sp.TUnit)
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(7)
compute_CFA2_43 = sp.local("compute_CFA2_43", (self.data.currentCash + self.data.totalSupply) + self.data.totalReserves)
sp.if compute_CFA2_43.value > 0:
self.data.activeOperations.add(13)
sp.transfer(sp.record(requests = sp.list([sp.record(owner = sp.self_address, token_id = self.data.tokenId)]), callback = sp.self_entry_point('setCash')), sp.tez(0), sp.contract(sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")), self.data.fa2_TokenAddress, entry_point='balance_of').open_some())
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('updateSupplyRateInternal'))
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(7)
compute_CFA2_43 = sp.local("compute_CFA2_43", (self.data.currentCash + self.data.totalSupply) + self.data.totalReserves)
sp.if compute_CFA2_43.value > 0:
self.data.activeOperations.add(13)
sp.transfer(sp.record(requests = sp.list([sp.record(owner = sp.self_address, token_id = self.data.tokenId)]), callback = sp.self_entry_point('setCash')), sp.tez(0), sp.contract(sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")), self.data.fa2_TokenAddress, entry_point='balance_of').open_some())
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('updateSupplyRateInternal'))
Storage:
{accrualBlockNumber: sp.TNat;
accrualIntPeriodRelevance: sp.TNat;
activeOperations: sp.TSet(sp.TNat);
administrator: sp.TAddress;
balances: sp.TBigMap(sp.TAddress,
{
accountBorrows:
{
interestIndex: sp.TNat;
principal: sp.TNat;
}.layout(("interestIndex", "principal"));
approvals: sp.TMap(sp.TAddress, sp.TNat);
balance: sp.TNat;
}.layout(("accountBorrows", ("approvals", "balance"))));
borrowIndex: sp.TNat;
borrowRateMaxMantissa: sp.TNat;
borrowRatePerBlock: sp.TNat;
comptroller: sp.TAddress;
currentCash: sp.TNat;
expScale: sp.TNat;
fa2_TokenAddress: sp.TAddress;
halfExpScale: sp.TNat;
initialExchangeRateMantissa: sp.TNat;
interestRateModel: sp.TAddress;
isAccrualInterestValid: sp.TBool;
pendingAdministrator: sp.TOption(sp.TAddress);
reserveFactorMantissa: sp.TNat;
reserveFactorMaxMantissa: sp.TNat;
supplyRatePerBlock: sp.TNat;
tokenId: sp.TNat;
totalBorrows: sp.TNat;
totalReserves: sp.TNat;
totalSupply: sp.TNat;
}.layout((((("accrualBlockNumber", ("accrualIntPeriodRelevance", "activeOperations")), ("administrator", ("balances", "borrowIndex"))), (("borrowRateMaxMantissa", ("borrowRatePerBlock", "comptroller")), ("currentCash", ("expScale", "fa2_TokenAddress")))), ((("halfExpScale", ("initialExchangeRateMantissa", "interestRateModel")), ("isAccrualInterestValid", ("pendingAdministrator", "reserveFactorMantissa"))), (("reserveFactorMaxMantissa", ("supplyRatePerBlock", "tokenId")), ("totalBorrows", ("totalReserves", "totalSupply"))))))
Entry points:
| acceptGovernance| accrueInterest
| addReserves sp.TNat
| addReservesInternal
{
addAmount: sp.TNat;
originalSender: sp.TAddress;
}.layout(("addAmount", "originalSender"))
| approve
{
spender: sp.TAddress;
value: sp.TNat;
}.layout(("spender", "value"))
| borrow sp.TNat
| borrowBalanceStored sp.TPair(sp.TAddress, sp.TContract(sp.TNat))
| doAccrueInterest sp.TNat
| exchangeRateStored sp.TPair(sp.TUnit, sp.TContract(sp.TNat))
| getAccountSnapshot sp.TPair(sp.TAddress, sp.TContract(
{
account: sp.TAddress;
borrowBalance: sp.TNat;
cTokenBalance: sp.TNat;
exchangeRateMantissa: sp.TNat;
}.layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))))
| getAllowance sp.TPair(
{
owner: sp.TAddress;
spender: sp.TAddress;
}.layout(("owner", "spender")), sp.TContract(sp.TNat))
| getBalance sp.TPair(sp.TAddress, sp.TContract(sp.TNat))
| getBalanceOfUnderlying sp.TPair(sp.TAddress, sp.TContract(sp.TNat))
| getCash sp.TPair(sp.TUnit, sp.TContract(sp.TNat))
| getTotalSupply sp.TPair(sp.TUnit, sp.TContract(sp.TNat))
| hardResetOp
| mint sp.TNat
| redeem sp.TNat
| redeemUnderlying sp.TNat
| reduceReserves sp.TNat
| reduceReservesInternal sp.TNat
| removePendingGovernance
| repayBorrow sp.TNat
| repayBorrowBehalf
{
borrower: sp.TAddress;
repayAmount: sp.TNat;
}.layout(("borrower", "repayAmount"))
| setAccrualIntPeriodRelevance sp.TNat
| setBorrowRatePerBlock sp.TNat
| setCash sp.TList(
{
balance: sp.TNat;
request:
{
owner: sp.TAddress;
token_id: sp.TNat;
}.layout(("owner", "token_id"));
}.layout(("request", "balance")))
| setComptroller sp.TAddress
| setInterestRateModel sp.TAddress
| setInterestRateModelInternal sp.TAddress
| setPendingGovernance sp.TAddress
| setReserveFactor sp.TNat
| setReserveFactorInternal sp.TNat
| setSupplyRatePerBlock sp.TNat
| sweepFA12
{
amount: sp.TNat;
tokenAddress: sp.TAddress;
}.layout(("amount", "tokenAddress"))
| sweepFA2
{
amount: sp.TNat;
id: sp.TNat;
tokenAddress: sp.TAddress;
}.layout(("amount", ("id", "tokenAddress")))
| sweepMutez sp.TBool
| transfer
{
from_: sp.TAddress;
to_: sp.TAddress;
value: sp.TNat;
}.layout(("from_ as from", ("to_ as to", "value")))
| updateBorrowRateInternal
| updateBorrowRatePerBlock
| updateSupplyRateInternal
| updateSupplyRatePerBlock
Generated Michelson:
Sizes
| Storage: | 4872 Bytes | |
| Big map originations (2): | 64 Bytes | |
| Code: | 17101 Bytes | |
| Combined: | 22037 Bytes |
Initial Storage
(Pair (Pair (Pair (Pair (Pair 0 (Pair 5 {})) (Pair "tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5" (Pair {} 1000000000000000000))) (Pair (Pair 5000000000000 (Pair 0 "KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1")) (Pair 0 (Pair 1000000000000000000 "KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H")))) (Pair (Pair (Pair 500000000000000000 (Pair 1000000000000000000 "KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF")) (Pair False (Pair None 0))) (Pair (Pair 1000000000000000000 (Pair 0 0)) (Pair 0 (Pair 0 0))))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; GET 3; GET 5; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; GET 3; GET 5; IF_NONE { PUSH int 593; FAILWITH } {}; PAIR; SWAP; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; PUSH nat 0; DUP 3; CAR; CAR; GET 5; SENDER; GET; IF_NONE { PUSH int 281; FAILWITH } {}; GET 3; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { DUP; CDR; PUSH nat 0; COMPARE; EQ }; IF {} { PUSH string "CT_UNSAFE_ALLOWANCE_CHANGE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 283; FAILWITH } {}; DUP; GET 3; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 3; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SWAP; DUP; DUG 2; GET 3; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; GET 4; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; PUSH bool False; PUSH nat 8; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; DUP; DUG 2; CAR; GET 3; CAR; SWAP; DUP; DUG 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CAR; LEVEL; SUB; ISNAT; IF_NONE { PUSH int 543; FAILWITH } {}; MUL; SWAP; DUP; DUG 2; CAR; GET 7; DUP 3; GET 7; DUP 3; MUL; EDIV; IF_NONE { PUSH int 58; FAILWITH } { CAR }; DIG 2; DUP; GET 7; DUP 3; ADD; UPDATE 7; DUP; DUP; GET 9; SWAP; DUP; DUG 5; CAR; GET 7; DIG 3; DIG 5; GET 3; GET 6; MUL; EDIV; IF_NONE { PUSH int 58; FAILWITH } { CAR }; ADD; UPDATE 9; DUP; DUG 2; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DUP 7; CAR; CAR; GET 6; DUP 8; CAR; GET 7; DIG 8; CAR; CAR; GET 6; DIG 8; MUL; EDIV; IF_NONE { PUSH int 58; FAILWITH } { CAR }; ADD; SWAP; PAIR; SWAP; PAIR; SWAP; CDR; LEVEL; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; EMPTY_SET nat; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; GET 4; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; PUSH bool False; PUSH nat 12; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; DUP 3; CAR; GET 5; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; SWAP; DUP; DUG 2; GET 9; SWAP; DUP; DUG 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; SWAP; DUP; DUG 2; SWAP; DUP; DUG 2; DIG 3; GET 9; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; GET 8; CONTRACT %transfer (list (pair address (list (pair address (pair nat nat))))); IF_NONE { PUSH int 36; FAILWITH } {}; PUSH mutez 0; NIL (pair address (list (pair address (pair nat nat)))); NIL (pair address (pair nat nat)); DIG 5; DUP 7; GET 5; GET 4; DUP 8; CAR; CAR; GET 3; PAIR 3; CONS; SELF_ADDRESS; PAIR; CONS; TRANSFER_TOKENS; CONS; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; PUSH bool False; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { DROP } } } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 6 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; SWAP; DUP; DUG 2; GET 3; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; GET 4; PUSH nat 6; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; PUSH bool False; PUSH nat 6; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; SWAP; DUP; DUG 2; CAR; CAR; CAR; GET 4; PUSH nat 13; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; PUSH bool False; PUSH nat 13; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; DUP; DUG 2; CAR; GET 8; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_SENDER"; FAILWITH }; DUP; SIZE; PUSH nat 1; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_DATA"; FAILWITH }; DUP; ITER { DUP 3; GET 5; GET 4; SWAP; DUP; DUG 2; CAR; CDR; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_DATA"; FAILWITH }; DUP; CAR; CAR; SELF_ADDRESS; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_DATA"; FAILWITH }; DIG 2; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 4; CDR; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP }; DROP; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } }; SWAP; DUP; DUG 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; GET 4; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; PUSH bool False; PUSH nat 9; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } }; SWAP; DUP; DUG 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; SOME; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; GET 4; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; PUSH bool False; PUSH nat 10; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; DUP; DUG 2; CAR; CAR; CAR; CAR; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DUP 3; CAR; CAR; CAR; GET 3; COMPARE; GT; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 3; IF {} { PUSH string "CT_INTEREST_INVALID"; FAILWITH }; SWAP; DUP; DUG 2; GET 5; CAR; SWAP; DUP; DUG 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; GET 3; DIG 4; SWAP; PAIR; PUSH bool False; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } }; SWAP; DUP; DUG 2; GET 3; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; GET 4; PUSH nat 7; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; PUSH bool False; PUSH nat 7; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; NIL operation; PAIR }})
Michelson Code
parameter (or (or (or (or (unit %acceptGovernance) (or (pair %approve (address %spender) (nat %value)) (nat %doAccrueInterest))) (or (unit %hardResetOp) (or (nat %reduceReservesInternal) (unit %removePendingGovernance)))) (or (or (nat %setBorrowRatePerBlock) (or (list %setCash (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))) (address %setComptroller))) (or (or (address %setInterestRateModelInternal) (address %setPendingGovernance)) (or (nat %setReserveFactorInternal) (nat %setSupplyRatePerBlock))))) (or (or (or (or (unit %accrueInterest) (or (nat %addReserves) (pair %addReservesInternal (nat %addAmount) (address %originalSender)))) (or (or (nat %borrow) (pair %borrowBalanceStored address (contract nat))) (or (pair %exchangeRateStored unit (contract nat)) (pair %getAccountSnapshot address (contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))))))) (or (or (pair %getAllowance (pair (address %owner) (address %spender)) (contract nat)) (or (pair %getBalance address (contract nat)) (pair %getBalanceOfUnderlying address (contract nat)))) (or (or (pair %getCash unit (contract nat)) (pair %getTotalSupply unit (contract nat))) (or (nat %mint) (nat %redeem))))) (or (or (or (nat %redeemUnderlying) (or (nat %reduceReserves) (nat %repayBorrow))) (or (or (pair %repayBorrowBehalf (address %borrower) (nat %repayAmount)) (nat %setAccrualIntPeriodRelevance)) (or (address %setInterestRateModel) (nat %setReserveFactor)))) (or (or (or (pair %sweepFA12 (nat %amount) (address %tokenAddress)) (pair %sweepFA2 (nat %amount) (pair (nat %id) (address %tokenAddress)))) (or (bool %sweepMutez) (pair %transfer (address %from) (pair (address %to) (nat %value))))) (or (or (unit %updateBorrowRateInternal) (unit %updateBorrowRatePerBlock)) (or (unit %updateSupplyRateInternal) (unit %updateSupplyRatePerBlock)))))));
storage (pair (pair (pair (pair (pair (nat %accrualBlockNumber) (pair (nat %accrualIntPeriodRelevance) (set %activeOperations nat))) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (pair (nat %initialExchangeRateMantissa) (address %interestRateModel))) (pair (bool %isAccrualInterestValid) (pair (option %pendingAdministrator address) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))));
storage (pair (pair (pair (pair (pair (nat %accrualBlockNumber) (pair (nat %accrualIntPeriodRelevance) (set %activeOperations nat))) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (pair (nat %initialExchangeRateMantissa) (address %interestRateModel))) (pair (bool %isAccrualInterestValid) (pair (option %pendingAdministrator address) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))));
code
{
CAST (pair (or (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (or (or (or (or unit (or nat (pair nat address))) (or (or nat (pair address (contract nat))) (or (pair unit (contract nat)) (pair address (contract (pair (pair address nat) (pair nat nat))))))) (or (or (pair (pair address address) (contract nat)) (or (pair address (contract nat)) (pair address (contract nat)))) (or (or (pair unit (contract nat)) (pair unit (contract nat))) (or nat nat)))) (or (or (or nat (or nat nat)) (or (or (pair address nat) nat) (or address nat))) (or (or (or (pair nat address) (pair nat (pair nat address))) (or bool (pair address (pair address nat)))) (or (or unit unit) (or unit unit)))))) (pair (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))))); # pair (or (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (or (or (or (or unit (or nat (pair nat address))) (or (or nat (pair address (contract nat))) (or (pair unit (contract nat)) (pair address (contract (pair (pair address nat) (pair nat nat))))))) (or (or (pair (pair address address) (contract nat)) (or (pair address (contract nat)) (pair address (contract nat)))) (or (or (pair unit (contract nat)) (pair unit (contract nat))) (or nat nat)))) (or (or (or nat (or nat nat)) (or (or (pair address nat) nat) (or address nat))) (or (or (or (pair nat address) (pair nat (pair nat address))) (or bool (pair address (pair address nat)))) (or (or unit unit) (or unit unit)))))) (pair (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))))
UNPAIR 3; # or (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (or (or (or (or unit (or nat (pair nat address))) (or (or nat (pair address (contract nat))) (or (pair unit (contract nat)) (pair address (contract (pair (pair address nat) (pair nat nat))))))) (or (or (pair (pair address address) (contract nat)) (or (pair address (contract nat)) (pair address (contract nat)))) (or (or (pair unit (contract nat)) (pair unit (contract nat))) (or nat nat)))) (or (or (or nat (or nat nat)) (or (or (pair address nat) nat) (or address nat))) (or (or (or (pair nat address) (pair nat (pair nat address))) (or bool (pair address (pair address nat)))) (or (or unit unit) (or unit unit))))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_LEFT
{
DUP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 1; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 2; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 3; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 4; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 5; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 6; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 7; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 8; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 9; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 10; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 11; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 12; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int -1; # int : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# missing entry point # @some : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) : @some : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EXEC; # pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == accrueInterest ==
# compute_CFA2_43 = sp.local("compute_CFA2_43", (self.data.currentCash + self.data.totalSupply) + self.data.totalReserves) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if compute_CFA2_43.value > 0: # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
# self.data.activeOperations.add(13) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 13; # nat : bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(requests = sp.list([sp.record(owner = sp.self_address, token_id = self.data.tokenId)]), callback = sp.self_entry_point('setCash')), sp.tez(0), sp.contract(sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")), self.data.fa2_TokenAddress, entry_point='balance_of').open_some()) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %balance_of (pair (list (pair address nat)) (contract (list (pair (pair address nat) nat)))); # option (contract (pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 46; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %setCash; # @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address nat); # list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # pair nat (pair nat nat) : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self nat : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (list (pair address nat)) @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
NIL operation; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.accrualBlockNumber == 0: # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.accrualBlockNumber = sp.level # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @level (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair @level (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair @level (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair @level (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair @level (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if sp.level != self.data.accrualBlockNumber: # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(8) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 8; # nat : bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = self.data.currentCash, cb = sp.self_entry_point('doAccrueInterest'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getBorrowRate').open_some()) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat address) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %getBorrowRate (pair (pair nat nat) (pair (contract nat) nat)); # option (contract (pair (pair nat nat) (pair (contract nat) nat))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 526; # int : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %doAccrueInterest; # @self : nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 6; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair @self nat) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = True # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
# == addReserves ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # set nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(11) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 11; # nat : bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest')) # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %accrueInterest; # @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(addAmount = params, originalSender = sp.sender), sp.amount, sp.self_entry_point('addReservesInternal')) # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %addReservesInternal; # @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
AMOUNT; # @amount : @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @amount : @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # nat : @sender : @amount : @self : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat @sender : @amount : @self : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
# == addReservesInternal ==
# sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') # pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_FUNCTION"; # string : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.activeOperations.contains(11), 'OP_NOT_ACTIVE') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # set nat : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 11; # nat : set nat : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_NOT_ACTIVE"; # string : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.remove(11) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 11; # nat : bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : @some : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : @some : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # bool : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.list([sp.record(from_ = params.originalSender, txs = sp.list([sp.record(to_ = sp.self_address, token_id = self.data.tokenId, amount = params.addAmount)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some()) # pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # address : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transfer (list (pair address (list (pair address (pair nat nat))))); # option (contract (list (pair address (list (pair address (pair nat nat)))))) : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 36; # int : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair nat address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 8; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # pair nat (pair nat nat) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair nat address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalReserves += params.addAmount # list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair nat address : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 9; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
# == borrow ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if ~ (self.data.balances.contains(sp.sender)): # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, borrower = sp.sender, borrowAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), self.data.comptroller, entry_point='borrowAllowed').open_some()) # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat (pair nat address) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %borrowAllowed (pair address (pair address nat)); # option (contract (pair address (pair address nat))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 175; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair @sender nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.currentCash >= params, 'CT_INSUFFICIENT_CASH') # nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GE; # bool : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INSUFFICIENT_CASH"; # string : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @some : nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # bool : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = sp.sender, token_id = self.data.tokenId, amount = params)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some()) # list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # address : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transfer (list (pair address (list (pair address (pair nat nat))))); # option (contract (list (pair address (list (pair address (pair nat nat)))))) : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 36; # int : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 7; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # pair nat (pair nat nat) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @sender (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.sender].accountBorrows) # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 442; # int : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:442 # @some : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance = sp.local("borrowBalance", 0) # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if borrowSnapshot.value.principal > 0: # nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # nat : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair nat nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 446; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair nat nat : nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].accountBorrows.principal = borrowBalance.value + params # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 168; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 12; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 11; # nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 2; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].accountBorrows.interestIndex = self.data.borrowIndex # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 169; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 12; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalBorrows += borrowBalance.value + params # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 7; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == borrowBalanceStored ==
# borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.fst(params)].accountBorrows) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (contract nat) : pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 442; # int : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:442 # @some : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance = sp.local("borrowBalance", 0) # pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if borrowSnapshot.value.principal > 0: # nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # nat : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair nat nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 446; # int : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair nat nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.result(borrowBalance.value)
# sp.transfer(__s1.value, sp.tez(0), sp.snd(params)) # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair address (contract nat) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == exchangeRateStored ==
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat address) : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 7; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{}; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.result(excRate.value)
# sp.transfer(__s2.value, sp.tez(0), sp.snd(params)) # nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair unit (contract nat) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == getAccountSnapshot ==
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @some : nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # bool : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.fst(params)].accountBorrows) # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair address (contract (pair (pair address nat) (pair nat nat))) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 442; # int : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:442 # @some : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance = sp.local("borrowBalance", 0) # pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if borrowSnapshot.value.principal > 0: # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 446; # int : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{}; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat address) : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 7; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 6; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 8; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DIG 2; # pair nat nat : nat : nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # @some : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.result(sp.record(account = sp.fst(params), borrowBalance = borrowBalance.value, cTokenBalance = self.data.balances[sp.fst(params)].balance, exchangeRateMantissa = excRate.value)) # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair address (contract (pair (pair address nat) (pair nat nat))) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 358; # int : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:358 # @some : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair address (contract (pair (pair address nat) (pair nat nat))) : nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s3.value, sp.tez(0), sp.snd(params)) # pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair address (contract (pair (pair address nat) (pair nat nat))) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract (pair (pair address nat) (pair nat nat)) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract (pair (pair address nat) (pair nat nat)) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair address nat) (pair nat nat) : mutez : contract (pair (pair address nat) (pair nat nat)) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address address) (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == getAllowance ==
# sp.result(self.data.balances[sp.fst(params).owner].approvals[sp.fst(params).spender]) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address address) (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address address) (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair address address) (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair address address) (contract nat) : pair (pair address address) (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair address address) (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair address address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 340; # int : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:340 # @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair address address) (contract nat) : map address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair address address) (contract nat) : pair (pair address address) (contract nat) : map address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair address address) (contract nat) : map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair address address : map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # address : map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 340; # int : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:340 # @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s4.value, sp.tez(0), sp.snd(params)) # @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair address address) (contract nat) : list operation : @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # @some : mutez : contract nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == getBalance ==
# sp.result(self.data.balances[sp.fst(params)].balance) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (contract nat) : pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 295; # int : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:295 # @some : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s5.value, sp.tez(0), sp.snd(params)) # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair address (contract nat) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == getBalanceOfUnderlying ==
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat address) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 7; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{}; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.result((excRate.value * self.data.balances[sp.fst(params)].balance) // self.data.expScale) # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 312; # int : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:312 # @some : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 58; # int : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s6.value, sp.tez(0), sp.snd(params)) # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair address (contract nat) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == getCash ==
# sp.result(self.data.currentCash) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s7.value, sp.tez(0), sp.snd(params)) # nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair unit (contract nat) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == getTotalSupply ==
# sp.result(self.data.totalSupply) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s8.value, sp.tez(0), sp.snd(params)) # nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair unit (contract nat) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
# == mint ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if ~ (self.data.balances.contains(sp.sender)): # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, minter = sp.sender, mintAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), self.data.comptroller, entry_point='mintAllowed').open_some()) # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat (pair nat address) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %mintAllowed (pair address (pair address nat)); # option (contract (pair address (pair address nat))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 71; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair @sender nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @some : nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # bool : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(to_ = sp.self_address, token_id = self.data.tokenId, amount = params)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some()) # list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # address : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transfer (list (pair address (list (pair address (pair nat nat))))); # option (contract (list (pair address (list (pair address (pair nat nat)))))) : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 36; # int : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 7; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # pair nat (pair nat nat) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @sender (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat address) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP 2; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 6; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 8; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount = sp.local("amount", 0)
# if True:
# sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value) # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 247; # int : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount.value = compute_CToken_747.value
# self.data.totalSupply += amount.value # nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 10; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].balance += amount.value # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 66; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 9; # nat : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 4; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
# == redeem ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, redeemer = sp.sender, redeemAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entry_point='redeemAllowed').open_some()) # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat (pair nat address) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %redeemAllowed (pair address (pair address nat)); # option (contract (pair address (pair address nat))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 136; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair @sender nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# redeem_amount = sp.local("redeem_amount", 0) # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if False:
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat address) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP 2; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 6; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 8; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount = sp.local("amount", 0)
# if False:
# compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale) # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 58; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount.value = compute_CToken_749.value
# redeem_amount.value = amount.value
# redeem_tokens = sp.local("redeem_tokens", 0)
# if False:
# redeem_tokens.value = params # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.currentCash >= redeem_amount.value, 'CT_INSUFFICIENT_CASH') # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GE; # bool : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INSUFFICIENT_CASH"; # string : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # bool : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply') # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "Insufficient supply"; # string : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 10; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].balance = sp.as_nat(self.data.balances[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 131; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 8; # nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 11; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 131; # int : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:131 # @some : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "Insufficient balance"; # string : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 4; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = sp.sender, token_id = self.data.tokenId, amount = redeem_amount.value)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some()) # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # address : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transfer (list (pair address (list (pair address (pair nat nat))))); # option (contract (list (pair address (list (pair address (pair nat nat)))))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 36; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 5; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 7; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # pair nat (pair nat nat) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @sender (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
# == redeemUnderlying ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, redeemer = sp.sender, redeemAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entry_point='redeemAllowed').open_some()) # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat (pair nat address) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %redeemAllowed (pair address (pair address nat)); # option (contract (pair address (pair address nat))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 136; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair @sender nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# redeem_amount = sp.local("redeem_amount", 0)
# if True:
# redeem_amount.value = params # nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# redeem_tokens = sp.local("redeem_tokens", 0) # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if True:
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat address) : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 7; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP 2; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 7; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount = sp.local("amount", 0)
# if True:
# sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value) # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # nat : nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 247; # int : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount.value = compute_CToken_747.value
# redeem_tokens.value = amount.value
# sp.verify(self.data.currentCash >= redeem_amount.value, 'CT_INSUFFICIENT_CASH') # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GE; # bool : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INSUFFICIENT_CASH"; # string : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # bool : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply') # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "Insufficient supply"; # string : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 10; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].balance = sp.as_nat(self.data.balances[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 131; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 8; # nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 11; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 131; # int : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:131 # @some : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "Insufficient balance"; # string : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 4; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = sp.sender, token_id = self.data.tokenId, amount = redeem_amount.value)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some()) # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # address : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transfer (list (pair address (list (pair address (pair nat nat))))); # option (contract (list (pair address (list (pair address (pair nat nat)))))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 36; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 5; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 7; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # pair nat (pair nat nat) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @sender (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == reduceReserves ==
# sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_NOT_ADMIN"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # set nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(12) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 12; # nat : bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest')) # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %accrueInterest; # @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(params, sp.amount, sp.self_entry_point('reduceReservesInternal')) # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %reduceReservesInternal; # @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
AMOUNT; # @amount : @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : @amount : @self : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
# == repayBorrow ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if ~ (self.data.balances.contains(sp.sender)): # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, payer = sp.sender, borrower = sp.sender, repayAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entry_point='repayBorrowAllowed').open_some()) # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat (pair nat address) : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %repayBorrowAllowed (pair address (pair address (pair address nat))); # option (contract (pair address (pair address (pair address nat)))) : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 225; # int : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @sender : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : @sender : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 4; # pair @self (pair @sender (pair @sender nat)) : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # list operation : pair @self (pair @sender (pair @sender nat)) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # pair @self (pair @sender (pair @sender nat)) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @some : nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # bool : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.sender].accountBorrows) # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 442; # int : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:442 # @some : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance = sp.local("borrowBalance", 0) # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if borrowSnapshot.value.principal > 0: # nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # nat : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair nat nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 446; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair nat nat : nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(to_ = sp.self_address, token_id = self.data.tokenId, amount = sp.min(borrowBalance.value, params))]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some()) # list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # address : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transfer (list (pair address (list (pair address (pair nat nat))))); # option (contract (list (pair address (list (pair address (pair nat nat)))))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 36; # int : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # nat : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # pair nat (pair nat nat) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @sender (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].accountBorrows.principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 218; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 10; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 14; # nat : nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 11; # nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 2; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].accountBorrows.interestIndex = self.data.borrowIndex # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 219; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 12; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 7; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
# == repayBorrowBehalf ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if ~ (self.data.balances.contains(sp.sender)): # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, payer = sp.sender, borrower = params.borrower, repayAmount = params.repayAmount), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entry_point='repayBorrowAllowed').open_some()) # pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat (pair nat address) : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %repayBorrowAllowed (pair address (pair address (pair address nat))); # option (contract (pair address (pair address (pair address nat)))) : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 225; # int : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # pair address nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address nat : pair address nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : pair address nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address nat : nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address nat : pair address nat : nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 6; # pair address nat : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : address : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 4; # pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # list operation : pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @some : nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # bool : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[params.borrower].accountBorrows) # @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair address nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 442; # int : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:442 # @some : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance = sp.local("borrowBalance", 0) # pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if borrowSnapshot.value.principal > 0: # nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # nat : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair nat nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 446; # int : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair nat nat : nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(to_ = sp.self_address, token_id = self.data.tokenId, amount = sp.min(borrowBalance.value, params.repayAmount))]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some()) # list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # address : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transfer (list (pair address (list (pair address (pair nat nat))))); # option (contract (list (pair address (list (pair address (pair nat nat)))))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 36; # int : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair address nat : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # pair nat (pair nat nat) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @sender (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[params.borrower].accountBorrows.principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 10; # pair address nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 218; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 10; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 14; # pair address nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 11; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 2; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[params.borrower].accountBorrows.interestIndex = self.data.borrowIndex # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 10; # pair address nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 219; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 12; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # pair address nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 7; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == setAccrualIntPeriodRelevance ==
# sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_NOT_ADMIN"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.accrualIntPeriodRelevance = params # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 5; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == setInterestRateModel ==
# sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_NOT_ADMIN"; # string : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : nat : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # set nat : nat : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : nat : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(9) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 9; # nat : bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest')) # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %accrueInterest; # @self : list operation : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(params, sp.tez(0), sp.self_entry_point('setInterestRateModelInternal')) # list operation : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %setInterestRateModelInternal; # @self : list operation : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # address : mutez : @self : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == setReserveFactor ==
# sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_NOT_ADMIN"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # set nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(10) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 10; # nat : bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest')) # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %accrueInterest; # @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(params, sp.tez(0), sp.self_entry_point('setReserveFactorInternal')) # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %setReserveFactorInternal; # @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : @self : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
# == sweepFA12 ==
# sp.transfer(sp.record(from_ = sp.self_address, to_ = self.data.administrator, value = params.amount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), params.tokenAddress, entry_point='transfer').open_some()) # pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat address : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # address : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transfer (pair address (pair address nat)); # option (contract (pair address (pair address nat))) : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 11; # int : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair nat address : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat (pair nat address) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == sweepFA2 ==
# sp.verify((params.tokenAddress != self.data.fa2_TokenAddress) | (params.id != self.data.tokenId), 'CT_SWEEP_UNDERLYING') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat (pair nat address) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat (pair nat address) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # address : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat (pair nat address) : pair nat (pair nat address) : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair nat (pair nat address) : address : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : address : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
PUSH bool True; # bool : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat (pair nat address) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat (pair nat address) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # pair nat (pair nat nat) : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat (pair nat address) : pair nat (pair nat address) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair nat (pair nat address) : nat : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : nat : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # bool : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_SWEEP_UNDERLYING"; # string : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = self.data.administrator, token_id = params.id, amount = params.amount)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), params.tokenAddress, entry_point='transfer').open_some()) # pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat (pair nat address) : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transfer (list (pair address (list (pair address (pair nat nat))))); # option (contract (list (pair address (list (pair address (pair nat nat)))))) : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 36; # int : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 5; # pair nat (pair nat address) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat (pair nat address) : pair nat (pair nat address) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat (pair nat address) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 8; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair address (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
# == sweepMutez ==
# if params: # bool : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
# sp.send(self.data.administrator, sp.balance) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %receive unit; # option (contract unit) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 18; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : @balance : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
# sp.send(self.data.administrator, sp.balance) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT unit; # option (contract unit) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 21; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : @balance : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
# == transfer ==
# sp.verify((params.from_ == sp.sender) | (self.data.balances[params.from_].approvals[sp.sender] >= params.value), 'CT_TRANSFER_NOT_APPROVED') # pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (pair address nat) : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
PUSH bool True; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DUP; # pair address (pair address nat) : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 247; # int : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:247 # @some : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # map address nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : map address nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 247; # int : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:247 # @some : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GE; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_TRANSFER_NOT_APPROVED"; # string : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if ~ (self.data.balances.contains(params.to_)): # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (pair address nat) : pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[params.to_] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 8; # pair address (pair address nat) : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, src = params.from_, dst = params.to_, transferTokens = params.value), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))), self.data.comptroller, entry_point='transferAllowed').open_some()) # pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat (pair nat address) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transferAllowed (pair (pair address address) (pair address nat)); # option (contract (pair (pair address address) (pair address nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 261; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (pair address nat) : pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair address nat) : nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (pair address nat) : pair address (pair address nat) : nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 5; # pair address (pair address nat) : nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair address (pair address nat) : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : address : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self address : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair @self address) (pair address nat) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair address nat) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.balances[params.from_].balance >= params.value, 'CT_INSUFFICIENT_BALANCE') # pair address (pair address nat) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (pair address nat) : pair address (pair address nat) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair address (pair address nat) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 253; # int : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:253 # @some : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GE; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INSUFFICIENT_BALANCE"; # string : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[params.from_].balance = sp.as_nat(self.data.balances[params.from_].balance - params.value) # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 254; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 10; # pair address (pair address nat) : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 11; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 12; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 254; # int : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:254 # @some : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 254; # int : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 4; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[params.to_].balance += params.value # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 255; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 11; # pair address (pair address nat) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 4; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if params.from_ != sp.sender: # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair address (pair address nat) : @sender : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : @sender : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
# self.data.balances[params.from_].approvals[sp.sender] = sp.as_nat(self.data.balances[params.from_].approvals[sp.sender] - params.value) # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 257; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 11; # pair address (pair address nat) : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 12; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 12; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 257; # int : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:257 # @some : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # map address nat : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : map address nat : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option nat : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 257; # int : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:257 # @some : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 257; # int : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 3; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair address (pair address nat) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == updateBorrowRateInternal ==
# sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_FUNCTION"; # string : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.activeOperations.contains(6), 'OP_NOT_ACTIVE') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # set nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 6; # nat : set nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_NOT_ACTIVE"; # string : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = self.data.currentCash, cb = sp.self_entry_point('setBorrowRatePerBlock'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getBorrowRate').open_some()) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %getBorrowRate (pair (pair nat nat) (pair (contract nat) nat)); # option (contract (pair (pair nat nat) (pair (contract nat) nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 382; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %setBorrowRatePerBlock; # @self : nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 6; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair @self nat) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == updateBorrowRatePerBlock ==
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # set nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(6) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 6; # nat : bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CFA2_43 = sp.local("compute_CFA2_43", (self.data.currentCash + self.data.totalSupply) + self.data.totalReserves) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if compute_CFA2_43.value > 0: # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
# self.data.activeOperations.add(13) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 13; # nat : bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(requests = sp.list([sp.record(owner = sp.self_address, token_id = self.data.tokenId)]), callback = sp.self_entry_point('setCash')), sp.tez(0), sp.contract(sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")), self.data.fa2_TokenAddress, entry_point='balance_of').open_some()) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %balance_of (pair (list (pair address nat)) (contract (list (pair (pair address nat) nat)))); # option (contract (pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 46; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %setCash; # @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address nat); # list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # pair nat (pair nat nat) : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self nat : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (list (pair address nat)) @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
NIL operation; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('updateBorrowRateInternal')) # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %updateBorrowRateInternal; # @self : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == updateSupplyRateInternal ==
# sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_FUNCTION"; # string : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.activeOperations.contains(7), 'OP_NOT_ACTIVE') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # set nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 7; # nat : set nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_NOT_ACTIVE"; # string : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = self.data.currentCash, cb = sp.self_entry_point('setSupplyRatePerBlock'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getSupplyRate').open_some()) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %getSupplyRate (pair (pair nat nat) (pair (contract nat) nat)); # option (contract (pair (pair nat nat) (pair (contract nat) nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 413; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %setSupplyRatePerBlock; # @self : nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 6; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair @self nat) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == updateSupplyRatePerBlock ==
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # set nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(7) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 7; # nat : bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CFA2_43 = sp.local("compute_CFA2_43", (self.data.currentCash + self.data.totalSupply) + self.data.totalReserves) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if compute_CFA2_43.value > 0: # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
# self.data.activeOperations.add(13) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 13; # nat : bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(requests = sp.list([sp.record(owner = sp.self_address, token_id = self.data.tokenId)]), callback = sp.self_entry_point('setCash')), sp.tez(0), sp.contract(sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")), self.data.fa2_TokenAddress, entry_point='balance_of').open_some()) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %balance_of (pair (list (pair address nat)) (contract (list (pair (pair address nat) nat)))); # option (contract (pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 46; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %setCash; # @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address nat); # list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # pair nat (pair nat nat) : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self nat : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (list (pair address nat)) @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
NIL operation; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('updateSupplyRateInternal')) # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %updateSupplyRateInternal; # @self : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ITER
{
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : list operation
PAIR; # pair (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))) : list operation
SWAP; # list operation : pair (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))))
PAIR; # pair (list operation) (pair (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))))
};
{
CAST (pair (or (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (or (or (or (or unit (or nat (pair nat address))) (or (or nat (pair address (contract nat))) (or (pair unit (contract nat)) (pair address (contract (pair (pair address nat) (pair nat nat))))))) (or (or (pair (pair address address) (contract nat)) (or (pair address (contract nat)) (pair address (contract nat)))) (or (or (pair unit (contract nat)) (pair unit (contract nat))) (or nat nat)))) (or (or (or nat (or nat nat)) (or (or (pair address nat) nat) (or address nat))) (or (or (or (pair nat address) (pair nat (pair nat address))) (or bool (pair address (pair address nat)))) (or (or unit unit) (or unit unit)))))) (pair (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))))); # pair (or (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (or (or (or (or unit (or nat (pair nat address))) (or (or nat (pair address (contract nat))) (or (pair unit (contract nat)) (pair address (contract (pair (pair address nat) (pair nat nat))))))) (or (or (pair (pair address address) (contract nat)) (or (pair address (contract nat)) (pair address (contract nat)))) (or (or (pair unit (contract nat)) (pair unit (contract nat))) (or nat nat)))) (or (or (or nat (or nat nat)) (or (or (pair address nat) nat) (or address nat))) (or (or (or (pair nat address) (pair nat (pair nat address))) (or bool (pair address (pair address nat)))) (or (or unit unit) (or unit unit)))))) (pair (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))))
UNPAIR 3; # or (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (or (or (or (or unit (or nat (pair nat address))) (or (or nat (pair address (contract nat))) (or (pair unit (contract nat)) (pair address (contract (pair (pair address nat) (pair nat nat))))))) (or (or (pair (pair address address) (contract nat)) (or (pair address (contract nat)) (pair address (contract nat)))) (or (or (pair unit (contract nat)) (pair unit (contract nat))) (or nat nat)))) (or (or (or nat (or nat nat)) (or (or (pair address nat) nat) (or address nat))) (or (or (or (pair nat address) (pair nat (pair nat address))) (or bool (pair address (pair address nat)))) (or (or unit unit) (or unit unit))))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_LEFT
{
DUP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 1; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 2; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 3; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 4; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 5; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 6; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 7; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 8; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 9; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 10; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 11; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 12; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int -1; # int : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# missing entry point # @some : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) : @some : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EXEC; # pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == accrueInterest ==
# compute_CFA2_43 = sp.local("compute_CFA2_43", (self.data.currentCash + self.data.totalSupply) + self.data.totalReserves) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if compute_CFA2_43.value > 0: # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
# self.data.activeOperations.add(13) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 13; # nat : bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(requests = sp.list([sp.record(owner = sp.self_address, token_id = self.data.tokenId)]), callback = sp.self_entry_point('setCash')), sp.tez(0), sp.contract(sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")), self.data.fa2_TokenAddress, entry_point='balance_of').open_some()) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %balance_of (pair (list (pair address nat)) (contract (list (pair (pair address nat) nat)))); # option (contract (pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 46; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %setCash; # @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address nat); # list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # pair nat (pair nat nat) : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self nat : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (list (pair address nat)) @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
NIL operation; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.accrualBlockNumber == 0: # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.accrualBlockNumber = sp.level # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @level (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair @level (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair @level (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair @level (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair @level (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if sp.level != self.data.accrualBlockNumber: # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(8) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 8; # nat : bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = self.data.currentCash, cb = sp.self_entry_point('doAccrueInterest'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getBorrowRate').open_some()) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat address) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %getBorrowRate (pair (pair nat nat) (pair (contract nat) nat)); # option (contract (pair (pair nat nat) (pair (contract nat) nat))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 526; # int : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %doAccrueInterest; # @self : nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 6; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair @self nat) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = True # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
# == addReserves ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # set nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(11) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 11; # nat : bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest')) # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %accrueInterest; # @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(addAmount = params, originalSender = sp.sender), sp.amount, sp.self_entry_point('addReservesInternal')) # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %addReservesInternal; # @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
AMOUNT; # @amount : @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @amount : @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # nat : @sender : @amount : @self : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat @sender : @amount : @self : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
# == addReservesInternal ==
# sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') # pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_FUNCTION"; # string : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.activeOperations.contains(11), 'OP_NOT_ACTIVE') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # set nat : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 11; # nat : set nat : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_NOT_ACTIVE"; # string : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.remove(11) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 11; # nat : bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : @some : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : @some : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # bool : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.list([sp.record(from_ = params.originalSender, txs = sp.list([sp.record(to_ = sp.self_address, token_id = self.data.tokenId, amount = params.addAmount)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some()) # pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # address : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transfer (list (pair address (list (pair address (pair nat nat))))); # option (contract (list (pair address (list (pair address (pair nat nat)))))) : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 36; # int : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair nat address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 8; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # pair nat (pair nat nat) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair nat address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalReserves += params.addAmount # list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair nat address : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 9; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
# == borrow ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if ~ (self.data.balances.contains(sp.sender)): # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, borrower = sp.sender, borrowAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), self.data.comptroller, entry_point='borrowAllowed').open_some()) # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat (pair nat address) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %borrowAllowed (pair address (pair address nat)); # option (contract (pair address (pair address nat))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 175; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair @sender nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.currentCash >= params, 'CT_INSUFFICIENT_CASH') # nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GE; # bool : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INSUFFICIENT_CASH"; # string : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @some : nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # bool : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = sp.sender, token_id = self.data.tokenId, amount = params)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some()) # list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # address : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transfer (list (pair address (list (pair address (pair nat nat))))); # option (contract (list (pair address (list (pair address (pair nat nat)))))) : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 36; # int : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 7; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # pair nat (pair nat nat) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @sender (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.sender].accountBorrows) # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 442; # int : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:442 # @some : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance = sp.local("borrowBalance", 0) # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if borrowSnapshot.value.principal > 0: # nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # nat : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair nat nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 446; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair nat nat : nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].accountBorrows.principal = borrowBalance.value + params # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 168; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 12; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 11; # nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 2; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].accountBorrows.interestIndex = self.data.borrowIndex # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 169; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 12; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalBorrows += borrowBalance.value + params # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 7; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == borrowBalanceStored ==
# borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.fst(params)].accountBorrows) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (contract nat) : pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 442; # int : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:442 # @some : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance = sp.local("borrowBalance", 0) # pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if borrowSnapshot.value.principal > 0: # nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # nat : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair nat nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 446; # int : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair nat nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.result(borrowBalance.value)
# sp.transfer(__s1.value, sp.tez(0), sp.snd(params)) # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair address (contract nat) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == exchangeRateStored ==
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat address) : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 7; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{}; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.result(excRate.value)
# sp.transfer(__s2.value, sp.tez(0), sp.snd(params)) # nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair unit (contract nat) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == getAccountSnapshot ==
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @some : nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # bool : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.fst(params)].accountBorrows) # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair address (contract (pair (pair address nat) (pair nat nat))) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 442; # int : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:442 # @some : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance = sp.local("borrowBalance", 0) # pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if borrowSnapshot.value.principal > 0: # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 446; # int : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{}; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat address) : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 7; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 6; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 8; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DIG 2; # pair nat nat : nat : nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # @some : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.result(sp.record(account = sp.fst(params), borrowBalance = borrowBalance.value, cTokenBalance = self.data.balances[sp.fst(params)].balance, exchangeRateMantissa = excRate.value)) # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair address (contract (pair (pair address nat) (pair nat nat))) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 358; # int : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:358 # @some : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair address (contract (pair (pair address nat) (pair nat nat))) : nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s3.value, sp.tez(0), sp.snd(params)) # pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair address (contract (pair (pair address nat) (pair nat nat))) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract (pair (pair address nat) (pair nat nat)) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract (pair (pair address nat) (pair nat nat)) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair address nat) (pair nat nat) : mutez : contract (pair (pair address nat) (pair nat nat)) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address address) (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == getAllowance ==
# sp.result(self.data.balances[sp.fst(params).owner].approvals[sp.fst(params).spender]) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address address) (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address address) (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair address address) (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair address address) (contract nat) : pair (pair address address) (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair address address) (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair address address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 340; # int : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:340 # @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair address address) (contract nat) : map address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair address address) (contract nat) : pair (pair address address) (contract nat) : map address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair address address) (contract nat) : map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair address address : map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # address : map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 340; # int : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:340 # @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s4.value, sp.tez(0), sp.snd(params)) # @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair address address) (contract nat) : list operation : @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # @some : mutez : contract nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == getBalance ==
# sp.result(self.data.balances[sp.fst(params)].balance) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (contract nat) : pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 295; # int : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:295 # @some : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s5.value, sp.tez(0), sp.snd(params)) # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair address (contract nat) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == getBalanceOfUnderlying ==
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat address) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 7; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{}; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.result((excRate.value * self.data.balances[sp.fst(params)].balance) // self.data.expScale) # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 312; # int : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:312 # @some : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 58; # int : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s6.value, sp.tez(0), sp.snd(params)) # nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair address (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair address (contract nat) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == getCash ==
# sp.result(self.data.currentCash) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s7.value, sp.tez(0), sp.snd(params)) # nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair unit (contract nat) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == getTotalSupply ==
# sp.result(self.data.totalSupply) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s8.value, sp.tez(0), sp.snd(params)) # nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair unit (contract nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair unit (contract nat) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
# == mint ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if ~ (self.data.balances.contains(sp.sender)): # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, minter = sp.sender, mintAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), self.data.comptroller, entry_point='mintAllowed').open_some()) # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat (pair nat address) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %mintAllowed (pair address (pair address nat)); # option (contract (pair address (pair address nat))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 71; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair @sender nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @some : nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # bool : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(to_ = sp.self_address, token_id = self.data.tokenId, amount = params)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some()) # list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # address : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transfer (list (pair address (list (pair address (pair nat nat))))); # option (contract (list (pair address (list (pair address (pair nat nat)))))) : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 36; # int : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 7; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # pair nat (pair nat nat) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @sender (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : @some : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat address) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP 2; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 6; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 8; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount = sp.local("amount", 0)
# if True:
# sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value) # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 247; # int : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount.value = compute_CToken_747.value
# self.data.totalSupply += amount.value # nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 10; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].balance += amount.value # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 66; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 9; # nat : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 4; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
# == redeem ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, redeemer = sp.sender, redeemAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entry_point='redeemAllowed').open_some()) # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat (pair nat address) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %redeemAllowed (pair address (pair address nat)); # option (contract (pair address (pair address nat))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 136; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair @sender nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# redeem_amount = sp.local("redeem_amount", 0) # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if False:
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat address) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP 2; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 6; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 8; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount = sp.local("amount", 0)
# if False:
# compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale) # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 58; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount.value = compute_CToken_749.value
# redeem_amount.value = amount.value
# redeem_tokens = sp.local("redeem_tokens", 0)
# if False:
# redeem_tokens.value = params # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.currentCash >= redeem_amount.value, 'CT_INSUFFICIENT_CASH') # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GE; # bool : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INSUFFICIENT_CASH"; # string : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # bool : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply') # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "Insufficient supply"; # string : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 10; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].balance = sp.as_nat(self.data.balances[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 131; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 8; # nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 11; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 131; # int : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:131 # @some : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "Insufficient balance"; # string : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 4; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = sp.sender, token_id = self.data.tokenId, amount = redeem_amount.value)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some()) # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # address : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transfer (list (pair address (list (pair address (pair nat nat))))); # option (contract (list (pair address (list (pair address (pair nat nat)))))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 36; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 5; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 7; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # pair nat (pair nat nat) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @sender (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
# == redeemUnderlying ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, redeemer = sp.sender, redeemAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entry_point='redeemAllowed').open_some()) # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat (pair nat address) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %redeemAllowed (pair address (pair address nat)); # option (contract (pair address (pair address nat))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 136; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair @sender nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# redeem_amount = sp.local("redeem_amount", 0)
# if True:
# redeem_amount.value = params # nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# redeem_tokens = sp.local("redeem_tokens", 0) # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if True:
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat address) : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 7; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP 2; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 7; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount = sp.local("amount", 0)
# if True:
# sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value) # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # nat : nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 247; # int : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount.value = compute_CToken_747.value
# redeem_tokens.value = amount.value
# sp.verify(self.data.currentCash >= redeem_amount.value, 'CT_INSUFFICIENT_CASH') # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GE; # bool : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INSUFFICIENT_CASH"; # string : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : @some : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # bool : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply') # nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "Insufficient supply"; # string : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 10; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].balance = sp.as_nat(self.data.balances[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 131; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 8; # nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 11; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 131; # int : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:131 # @some : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "Insufficient balance"; # string : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 4; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = sp.sender, token_id = self.data.tokenId, amount = redeem_amount.value)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some()) # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # address : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transfer (list (pair address (list (pair address (pair nat nat))))); # option (contract (list (pair address (list (pair address (pair nat nat)))))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 36; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 5; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 7; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # pair nat (pair nat nat) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @sender (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == reduceReserves ==
# sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_NOT_ADMIN"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # set nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(12) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 12; # nat : bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest')) # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %accrueInterest; # @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(params, sp.amount, sp.self_entry_point('reduceReservesInternal')) # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %reduceReservesInternal; # @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
AMOUNT; # @amount : @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : @amount : @self : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
# == repayBorrow ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if ~ (self.data.balances.contains(sp.sender)): # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, payer = sp.sender, borrower = sp.sender, repayAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entry_point='repayBorrowAllowed').open_some()) # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat (pair nat address) : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %repayBorrowAllowed (pair address (pair address (pair address nat))); # option (contract (pair address (pair address (pair address nat)))) : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 225; # int : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @sender : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : @sender : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 4; # pair @self (pair @sender (pair @sender nat)) : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # list operation : pair @self (pair @sender (pair @sender nat)) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # pair @self (pair @sender (pair @sender nat)) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @some : nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # bool : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.sender].accountBorrows) # @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 442; # int : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:442 # @some : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance = sp.local("borrowBalance", 0) # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if borrowSnapshot.value.principal > 0: # nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # nat : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair nat nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 446; # int : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair nat nat : nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : @some : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(to_ = sp.self_address, token_id = self.data.tokenId, amount = sp.min(borrowBalance.value, params))]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some()) # list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # address : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transfer (list (pair address (list (pair address (pair nat nat))))); # option (contract (list (pair address (list (pair address (pair nat nat)))))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 36; # int : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # nat : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # pair nat (pair nat nat) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @sender (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].accountBorrows.principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 218; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 10; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 14; # nat : nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 11; # nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 2; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].accountBorrows.interestIndex = self.data.borrowIndex # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 219; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 12; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 7; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
# == repayBorrowBehalf ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if ~ (self.data.balances.contains(sp.sender)): # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, payer = sp.sender, borrower = params.borrower, repayAmount = params.repayAmount), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entry_point='repayBorrowAllowed').open_some()) # pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat (pair nat address) : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %repayBorrowAllowed (pair address (pair address (pair address nat))); # option (contract (pair address (pair address (pair address nat)))) : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 225; # int : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # pair address nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address nat : pair address nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : pair address nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address nat : nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address nat : pair address nat : nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 6; # pair address nat : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : address : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 4; # pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # list operation : pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @some : nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # bool : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[params.borrower].accountBorrows) # @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair address nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 442; # int : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:442 # @some : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance = sp.local("borrowBalance", 0) # pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if borrowSnapshot.value.principal > 0: # nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # nat : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair nat nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 446; # int : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair nat nat : nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : @some : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(to_ = sp.self_address, token_id = self.data.tokenId, amount = sp.min(borrowBalance.value, params.repayAmount))]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entry_point='transfer').open_some()) # list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # address : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transfer (list (pair address (list (pair address (pair nat nat))))); # option (contract (list (pair address (list (pair address (pair nat nat)))))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 36; # int : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair address nat : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # pair nat (pair nat nat) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @sender (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair address (list (pair address (pair nat nat))))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[params.borrower].accountBorrows.principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 10; # pair address nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 218; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 10; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 14; # pair address nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 11; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 2; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[params.borrower].accountBorrows.interestIndex = self.data.borrowIndex # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 10; # pair address nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 219; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 12; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # pair address nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 7; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : pair (option address) nat : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (pair (option address) nat) : pair nat (pair nat address) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : pair bool (pair (option address) nat) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == setAccrualIntPeriodRelevance ==
# sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_NOT_ADMIN"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.accrualIntPeriodRelevance = params # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 5; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == setInterestRateModel ==
# sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_NOT_ADMIN"; # string : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : nat : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # set nat : nat : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : nat : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(9) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 9; # nat : bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest')) # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %accrueInterest; # @self : list operation : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(params, sp.tez(0), sp.self_entry_point('setInterestRateModelInternal')) # list operation : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %setInterestRateModelInternal; # @self : list operation : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # address : mutez : @self : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == setReserveFactor ==
# sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_NOT_ADMIN"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # set nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(10) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 10; # nat : bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest')) # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %accrueInterest; # @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(params, sp.tez(0), sp.self_entry_point('setReserveFactorInternal')) # list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %setReserveFactorInternal; # @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : @self : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
# == sweepFA12 ==
# sp.transfer(sp.record(from_ = sp.self_address, to_ = self.data.administrator, value = params.amount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), params.tokenAddress, entry_point='transfer').open_some()) # pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat address : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # address : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transfer (pair address (pair address nat)); # option (contract (pair address (pair address nat))) : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 11; # int : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair nat address : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat (pair nat address) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == sweepFA2 ==
# sp.verify((params.tokenAddress != self.data.fa2_TokenAddress) | (params.id != self.data.tokenId), 'CT_SWEEP_UNDERLYING') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat (pair nat address) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat (pair nat address) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # address : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat (pair nat address) : pair nat (pair nat address) : address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair nat (pair nat address) : address : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : address : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
PUSH bool True; # bool : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat (pair nat address) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat (pair nat address) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # pair nat (pair nat nat) : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat (pair nat address) : pair nat (pair nat address) : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair nat (pair nat address) : nat : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : nat : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # bool : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_SWEEP_UNDERLYING"; # string : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = self.data.administrator, token_id = params.id, amount = params.amount)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), params.tokenAddress, entry_point='transfer').open_some()) # pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat (pair nat address) : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transfer (list (pair address (list (pair address (pair nat nat))))); # option (contract (list (pair address (list (pair address (pair nat nat)))))) : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 36; # int : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 5; # pair nat (pair nat address) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat (pair nat address) : pair nat (pair nat address) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat (pair nat address) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 8; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair address (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
# == sweepMutez ==
# if params: # bool : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
# sp.send(self.data.administrator, sp.balance) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %receive unit; # option (contract unit) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 18; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : @balance : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
# sp.send(self.data.administrator, sp.balance) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT unit; # option (contract unit) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 21; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : @balance : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
# == transfer ==
# sp.verify((params.from_ == sp.sender) | (self.data.balances[params.from_].approvals[sp.sender] >= params.value), 'CT_TRANSFER_NOT_APPROVED') # pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (pair address nat) : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
PUSH bool True; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DUP; # pair address (pair address nat) : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 247; # int : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:247 # @some : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # map address nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : map address nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 247; # int : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:247 # @some : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GE; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_TRANSFER_NOT_APPROVED"; # string : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if ~ (self.data.balances.contains(params.to_)): # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (pair address nat) : pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[params.to_] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 8; # pair address (pair address nat) : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, src = params.from_, dst = params.to_, transferTokens = params.value), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))), self.data.comptroller, entry_point='transferAllowed').open_some()) # pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat (pair nat address) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transferAllowed (pair (pair address address) (pair address nat)); # option (contract (pair (pair address address) (pair address nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 261; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (pair address nat) : pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair address nat) : nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (pair address nat) : pair address (pair address nat) : nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 5; # pair address (pair address nat) : nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair address (pair address nat) : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : address : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self address : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair @self address) (pair address nat) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair address nat) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.balances[params.from_].balance >= params.value, 'CT_INSUFFICIENT_BALANCE') # pair address (pair address nat) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (pair address nat) : pair address (pair address nat) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair address (pair address nat) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 253; # int : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:253 # @some : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GE; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INSUFFICIENT_BALANCE"; # string : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[params.from_].balance = sp.as_nat(self.data.balances[params.from_].balance - params.value) # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 254; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 10; # pair address (pair address nat) : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 11; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 12; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 254; # int : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:254 # @some : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 254; # int : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 4; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[params.to_].balance += params.value # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 255; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 11; # pair address (pair address nat) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 4; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if params.from_ != sp.sender: # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair address (pair address nat) : @sender : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : @sender : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
# self.data.balances[params.from_].approvals[sp.sender] = sp.as_nat(self.data.balances[params.from_].approvals[sp.sender] - params.value) # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 257; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 11; # pair address (pair address nat) : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 12; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 12; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 257; # int : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:257 # @some : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # map address nat : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : map address nat : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option nat : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 257; # int : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:257 # @some : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 257; # int : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 3; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (pair nat (set nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair address (pair address nat) : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == updateBorrowRateInternal ==
# sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_FUNCTION"; # string : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.activeOperations.contains(6), 'OP_NOT_ACTIVE') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # set nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 6; # nat : set nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_NOT_ACTIVE"; # string : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = self.data.currentCash, cb = sp.self_entry_point('setBorrowRatePerBlock'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getBorrowRate').open_some()) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %getBorrowRate (pair (pair nat nat) (pair (contract nat) nat)); # option (contract (pair (pair nat nat) (pair (contract nat) nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 382; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %setBorrowRatePerBlock; # @self : nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 6; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair @self nat) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == updateBorrowRatePerBlock ==
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # set nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(6) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 6; # nat : bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CFA2_43 = sp.local("compute_CFA2_43", (self.data.currentCash + self.data.totalSupply) + self.data.totalReserves) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if compute_CFA2_43.value > 0: # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
# self.data.activeOperations.add(13) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 13; # nat : bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(requests = sp.list([sp.record(owner = sp.self_address, token_id = self.data.tokenId)]), callback = sp.self_entry_point('setCash')), sp.tez(0), sp.contract(sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")), self.data.fa2_TokenAddress, entry_point='balance_of').open_some()) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %balance_of (pair (list (pair address nat)) (contract (list (pair (pair address nat) nat)))); # option (contract (pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 46; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %setCash; # @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address nat); # list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # pair nat (pair nat nat) : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self nat : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (list (pair address nat)) @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
NIL operation; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('updateBorrowRateInternal')) # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %updateBorrowRateInternal; # @self : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == updateSupplyRateInternal ==
# sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_FUNCTION"; # string : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.activeOperations.contains(7), 'OP_NOT_ACTIVE') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # set nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 7; # nat : set nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_NOT_ACTIVE"; # string : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = self.data.currentCash, cb = sp.self_entry_point('setSupplyRatePerBlock'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getSupplyRate').open_some()) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat (pair nat address)) (pair bool (pair (option address) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat address) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %getSupplyRate (pair (pair nat nat) (pair (contract nat) nat)); # option (contract (pair (pair nat nat) (pair (contract nat) nat))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 413; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %setSupplyRatePerBlock; # @self : nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 6; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair @self nat) : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == updateSupplyRatePerBlock ==
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat (pair nat (set nat)) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # set nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(7) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 7; # nat : bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CFA2_43 = sp.local("compute_CFA2_43", (self.data.currentCash + self.data.totalSupply) + self.data.totalReserves) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 3; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # nat : nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if compute_CFA2_43.value > 0: # nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
# self.data.activeOperations.add(13) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 13; # nat : bool : set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (set nat) : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat (pair nat (set nat)) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(requests = sp.list([sp.record(owner = sp.self_address, token_id = self.data.tokenId)]), callback = sp.self_entry_point('setCash')), sp.tez(0), sp.contract(sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")), self.data.fa2_TokenAddress, entry_point='balance_of').open_some()) # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # address : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %balance_of (pair (list (pair address nat)) (contract (list (pair (pair address nat) nat)))); # option (contract (pair (list (pair address nat)) (contract (list (pair (pair address nat) nat))))) : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 46; # int : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %setCash; # @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address nat); # list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # pair nat (pair nat nat) : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self nat : list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address nat) : @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (list (pair address nat)) @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
NIL operation; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('updateSupplyRateInternal')) # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %updateSupplyRateInternal; # @self : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ITER
{
CONS; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : list operation
PAIR; # pair (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))) : list operation
SWAP; # list operation : pair (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))))
PAIR; # pair (list operation) (pair (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair nat (set nat))) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat (pair nat address)) (pair bool (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))))
};
Initial Storage
{
"prim": "Pair",
"args": [
{
"prim": "Pair",
"args": [
{
"prim": "Pair",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "0" }, { "prim": "Pair", "args": [ { "int": "5" }, [] ] } ] },
{ "prim": "Pair", "args": [ { "string": "tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5" }, { "prim": "Pair", "args": [ [], { "int": "1000000000000000000" } ] } ] }
]
},
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "5000000000000" }, { "prim": "Pair", "args": [ { "int": "0" }, { "string": "KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1" } ] } ] },
{
"prim": "Pair",
"args": [ { "int": "0" }, { "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "string": "KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H" } ] } ]
}
]
}
]
},
{
"prim": "Pair",
"args": [
{
"prim": "Pair",
"args": [
{
"prim": "Pair",
"args": [
{ "int": "500000000000000000" },
{ "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "string": "KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF" } ] }
]
},
{ "prim": "Pair", "args": [ { "prim": "False" }, { "prim": "Pair", "args": [ { "prim": "None" }, { "int": "0" } ] } ] }
]
},
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] }
]
}
]
}
]
},
[
{
"prim": "Elt",
"args": [
{ "int": "0" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_SET_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "DUP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "593" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "NONE", "args": [ { "prim": "address" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "1" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "281" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] } ], [] ] },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ],
[ { "prim": "DUP" }, { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "COMPARE" }, { "prim": "EQ" } ]
]
},
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_UNSAFE_ALLOWANCE_CHANGE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "283" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "CDR" },
{ "prim": "SOME" },
{ "prim": "DIG", "args": [ { "int": "10" } ] },
{ "prim": "CAR" },
{ "prim": "UPDATE" },
{ "prim": "UPDATE", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "2" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SENDER_NOT_IRM" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "8" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "8" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_BORROW_RATE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "543" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "MUL" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "58" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "7" } ] },
{ "prim": "DUP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "58" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "9" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DIG", "args": [ { "int": "8" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DIG", "args": [ { "int": "8" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "58" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] },
{ "prim": "ADD" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "LEVEL" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "3" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "EMPTY_SET", "args": [ { "prim": "nat" } ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "4" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ]
]
}
]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "COMPARE" },
{ "prim": "GE" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_REDUCE_AMOUNT" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "UPDATE", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{ "prim": "list", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] }
]
}
]
}
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "36" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{
"prim": "NIL",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{ "prim": "list", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] }
]
}
]
},
{ "prim": "NIL", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "CONS" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "5" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "DROP" } ] ]
}
]
]
}
]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "NONE", "args": [ { "prim": "address" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "6" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SENDER_NOT_IRM" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "6" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "6" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "7" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "13" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "13" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_CASH_SENDER" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "DUP" },
{ "prim": "SIZE" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1" } ] },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_CASH_DATA" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "DUP" },
{
"prim": "ITER",
"args": [
[
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_CASH_DATA" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_CASH_DATA" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "CDR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "DROP" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "8" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "9" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
]
]
}
]
]
},
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "10" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] } ],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
]
]
}
]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "SOME" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "11" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ]
]
}
]
]
}
]
]
},
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "10" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "10" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_RESERVE_FACTOR" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "12" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] } ]
]
}
]
]
}
]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SENDER_NOT_IRM" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "7" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "7" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
}
]
]
}
"prim": "Pair",
"args": [
{
"prim": "Pair",
"args": [
{
"prim": "Pair",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "0" }, { "prim": "Pair", "args": [ { "int": "5" }, [] ] } ] },
{ "prim": "Pair", "args": [ { "string": "tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5" }, { "prim": "Pair", "args": [ [], { "int": "1000000000000000000" } ] } ] }
]
},
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "5000000000000" }, { "prim": "Pair", "args": [ { "int": "0" }, { "string": "KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1" } ] } ] },
{
"prim": "Pair",
"args": [ { "int": "0" }, { "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "string": "KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H" } ] } ]
}
]
}
]
},
{
"prim": "Pair",
"args": [
{
"prim": "Pair",
"args": [
{
"prim": "Pair",
"args": [
{ "int": "500000000000000000" },
{ "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "string": "KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF" } ] }
]
},
{ "prim": "Pair", "args": [ { "prim": "False" }, { "prim": "Pair", "args": [ { "prim": "None" }, { "int": "0" } ] } ] }
]
},
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] }
]
}
]
}
]
},
[
{
"prim": "Elt",
"args": [
{ "int": "0" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_SET_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "DUP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "593" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "NONE", "args": [ { "prim": "address" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "1" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "281" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] } ], [] ] },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ],
[ { "prim": "DUP" }, { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "COMPARE" }, { "prim": "EQ" } ]
]
},
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_UNSAFE_ALLOWANCE_CHANGE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "283" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "CDR" },
{ "prim": "SOME" },
{ "prim": "DIG", "args": [ { "int": "10" } ] },
{ "prim": "CAR" },
{ "prim": "UPDATE" },
{ "prim": "UPDATE", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "2" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SENDER_NOT_IRM" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "8" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "8" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_BORROW_RATE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "543" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "MUL" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "58" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "7" } ] },
{ "prim": "DUP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "58" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "9" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DIG", "args": [ { "int": "8" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DIG", "args": [ { "int": "8" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "58" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] },
{ "prim": "ADD" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "LEVEL" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "3" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "EMPTY_SET", "args": [ { "prim": "nat" } ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "4" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ]
]
}
]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "COMPARE" },
{ "prim": "GE" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_REDUCE_AMOUNT" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "UPDATE", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{ "prim": "list", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] }
]
}
]
}
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "36" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{
"prim": "NIL",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{ "prim": "list", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] }
]
}
]
},
{ "prim": "NIL", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "CONS" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "5" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "DROP" } ] ]
}
]
]
}
]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "NONE", "args": [ { "prim": "address" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "6" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SENDER_NOT_IRM" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "6" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "6" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "7" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "13" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "13" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_CASH_SENDER" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "DUP" },
{ "prim": "SIZE" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1" } ] },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_CASH_DATA" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "DUP" },
{
"prim": "ITER",
"args": [
[
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_CASH_DATA" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_CASH_DATA" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "CDR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "DROP" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "8" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "9" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
]
]
}
]
]
},
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "10" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] } ],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
]
]
}
]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "SOME" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "11" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ]
]
}
]
]
}
]
]
},
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "10" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "10" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_RESERVE_FACTOR" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "12" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] } ]
]
}
]
]
}
]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SENDER_NOT_IRM" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "7" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "7" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
}
]
]
}
JSON Representation
[
{
"prim": "storage",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%accrualBlockNumber" ] },
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%accrualIntPeriodRelevance" ] },
{ "prim": "set", "args": [ { "prim": "nat" } ], "annots": [ "%activeOperations" ] }
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%administrator" ] },
{
"prim": "pair",
"args": [
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [ { "prim": "nat", "annots": [ "%interestIndex" ] }, { "prim": "nat", "annots": [ "%principal" ] } ],
"annots": [ "%accountBorrows" ]
},
{
"prim": "pair",
"args": [
{ "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ], "annots": [ "%approvals" ] },
{ "prim": "nat", "annots": [ "%balance" ] }
]
}
]
}
],
"annots": [ "%balances" ]
},
{ "prim": "nat", "annots": [ "%borrowIndex" ] }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%borrowRateMaxMantissa" ] },
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%borrowRatePerBlock" ] }, { "prim": "address", "annots": [ "%comptroller" ] } ] }
]
},
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%currentCash" ] },
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%expScale" ] }, { "prim": "address", "annots": [ "%fa2_TokenAddress" ] } ] }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%halfExpScale" ] },
{
"prim": "pair",
"args": [ { "prim": "nat", "annots": [ "%initialExchangeRateMantissa" ] }, { "prim": "address", "annots": [ "%interestRateModel" ] } ]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "bool", "annots": [ "%isAccrualInterestValid" ] },
{
"prim": "pair",
"args": [
{ "prim": "option", "args": [ { "prim": "address" } ], "annots": [ "%pendingAdministrator" ] },
{ "prim": "nat", "annots": [ "%reserveFactorMantissa" ] }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%reserveFactorMaxMantissa" ] },
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%supplyRatePerBlock" ] }, { "prim": "nat", "annots": [ "%tokenId" ] } ] }
]
},
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%totalBorrows" ] },
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%totalReserves" ] }, { "prim": "nat", "annots": [ "%totalSupply" ] } ] }
]
}
]
}
]
}
]
},
{
"prim": "big_map",
"args": [
{ "prim": "nat" },
{
"prim": "lambda",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit" },
{ "prim": "or", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
},
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "unit" } ] } ] }
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "nat" },
{
"prim": "or",
"args": [
{
"prim": "list",
"args": [ { "prim": "pair", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } ]
},
{ "prim": "address" }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "address" }, { "prim": "address" } ] },
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "set", "args": [ { "prim": "nat" } ] } ] } ]
},
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
]
},
{ "prim": "nat" }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] },
{
"prim": "pair",
"args": [ { "prim": "bool" }, { "prim": "pair", "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "nat" } ] } ]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "list", "args": [ { "prim": "operation" } ] },
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "set", "args": [ { "prim": "nat" } ] } ] } ]
},
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
]
},
{ "prim": "nat" }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] },
{
"prim": "pair",
"args": [ { "prim": "bool" }, { "prim": "pair", "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "nat" } ] } ]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
}
]
}
]
}
]
}
]
}
]
},
{
"prim": "parameter",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit", "annots": [ "%acceptGovernance" ] },
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%spender" ] }, { "prim": "nat", "annots": [ "%value" ] } ], "annots": [ "%approve" ] },
{ "prim": "nat", "annots": [ "%doAccrueInterest" ] }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "unit", "annots": [ "%hardResetOp" ] },
{ "prim": "or", "args": [ { "prim": "nat", "annots": [ "%reduceReservesInternal" ] }, { "prim": "unit", "annots": [ "%removePendingGovernance" ] } ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "nat", "annots": [ "%setBorrowRatePerBlock" ] },
{
"prim": "or",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [ { "prim": "address", "annots": [ "%owner" ] }, { "prim": "nat", "annots": [ "%token_id" ] } ],
"annots": [ "%request" ]
},
{ "prim": "nat", "annots": [ "%balance" ] }
]
}
],
"annots": [ "%setCash" ]
},
{ "prim": "address", "annots": [ "%setComptroller" ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [ { "prim": "address", "annots": [ "%setInterestRateModelInternal" ] }, { "prim": "address", "annots": [ "%setPendingGovernance" ] } ]
},
{ "prim": "or", "args": [ { "prim": "nat", "annots": [ "%setReserveFactorInternal" ] }, { "prim": "nat", "annots": [ "%setSupplyRatePerBlock" ] } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit", "annots": [ "%accrueInterest" ] },
{
"prim": "or",
"args": [
{ "prim": "nat", "annots": [ "%addReserves" ] },
{
"prim": "pair",
"args": [ { "prim": "nat", "annots": [ "%addAmount" ] }, { "prim": "address", "annots": [ "%originalSender" ] } ],
"annots": [ "%addReservesInternal" ]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "nat", "annots": [ "%borrow" ] },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%borrowBalanceStored" ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%exchangeRateStored" ] },
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "contract",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] },
{
"prim": "pair",
"args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ]
}
]
}
]
}
],
"annots": [ "%getAccountSnapshot" ]
}
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%owner" ] }, { "prim": "address", "annots": [ "%spender" ] } ] },
{ "prim": "contract", "args": [ { "prim": "nat" } ] }
],
"annots": [ "%getAllowance" ]
},
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getBalance" ] },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getBalanceOfUnderlying" ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getCash" ] },
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getTotalSupply" ] }
]
},
{ "prim": "or", "args": [ { "prim": "nat", "annots": [ "%mint" ] }, { "prim": "nat", "annots": [ "%redeem" ] } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "nat", "annots": [ "%redeemUnderlying" ] },
{ "prim": "or", "args": [ { "prim": "nat", "annots": [ "%reduceReserves" ] }, { "prim": "nat", "annots": [ "%repayBorrow" ] } ] }
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [ { "prim": "address", "annots": [ "%borrower" ] }, { "prim": "nat", "annots": [ "%repayAmount" ] } ],
"annots": [ "%repayBorrowBehalf" ]
},
{ "prim": "nat", "annots": [ "%setAccrualIntPeriodRelevance" ] }
]
},
{ "prim": "or", "args": [ { "prim": "address", "annots": [ "%setInterestRateModel" ] }, { "prim": "nat", "annots": [ "%setReserveFactor" ] } ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [ { "prim": "nat", "annots": [ "%amount" ] }, { "prim": "address", "annots": [ "%tokenAddress" ] } ],
"annots": [ "%sweepFA12" ]
},
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%amount" ] },
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%id" ] }, { "prim": "address", "annots": [ "%tokenAddress" ] } ] }
],
"annots": [ "%sweepFA2" ]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "bool", "annots": [ "%sweepMutez" ] },
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%from" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%to" ] }, { "prim": "nat", "annots": [ "%value" ] } ] }
],
"annots": [ "%transfer" ]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [ { "prim": "unit", "annots": [ "%updateBorrowRateInternal" ] }, { "prim": "unit", "annots": [ "%updateBorrowRatePerBlock" ] } ]
},
{
"prim": "or",
"args": [ { "prim": "unit", "annots": [ "%updateSupplyRateInternal" ] }, { "prim": "unit", "annots": [ "%updateSupplyRatePerBlock" ] } ]
}
]
}
]
}
]
}
]
}
]
}
]
},
{
"prim": "code",
"args": [
[
{
"prim": "CAST",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit" },
{ "prim": "or", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
},
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "unit" } ] } ] }
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "nat" },
{
"prim": "or",
"args": [
{
"prim": "list",
"args": [ { "prim": "pair", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } ]
},
{ "prim": "address" }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "address" }, { "prim": "address" } ] },
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit" },
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] } ]
},
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] },
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "contract",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
}
]
}
]
}
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "address" } ] },
{ "prim": "contract", "args": [ { "prim": "nat" } ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] }
]
},
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] },
{ "prim": "or", "args": [ { "prim": "address" }, { "prim": "nat" } ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "bool" },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "unit" } ] },
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "unit" } ] }
]
}
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "set", "args": [ { "prim": "nat" } ] } ] } ]
},
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
]
},
{ "prim": "nat" }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] },
{
"prim": "pair",
"args": [ { "prim": "bool" }, { "prim": "pair", "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "nat" } ] } ]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "big_map",
"args": [
{ "prim": "nat" },
{
"prim": "lambda",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit" },
{ "prim": "or", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
},
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "unit" } ] } ] }
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "nat" },
{
"prim": "or",
"args": [
{
"prim": "list",
"args": [
{ "prim": "pair", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
},
{ "prim": "address" }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "address" }, { "prim": "address" } ] },
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "set", "args": [ { "prim": "nat" } ] } ] } ]
},
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ]
}
]
}
]
},
{ "prim": "nat" }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] },
{
"prim": "pair",
"args": [
{ "prim": "bool" },
{ "prim": "pair", "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "nat" } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "list", "args": [ { "prim": "operation" } ] },
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "set", "args": [ { "prim": "nat" } ] } ] } ]
},
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ]
}
]
}
]
},
{ "prim": "nat" }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] },
{
"prim": "pair",
"args": [
{ "prim": "bool" },
{ "prim": "pair", "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "nat" } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
}
]
}
]
}
]
}
]
}
]
}
]
},
{ "prim": "UNPAIR", "args": [ { "int": "3" } ] },
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DUP" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1" } ] } ],
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "2" } ] } ]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "3" } ] } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "4" } ] } ],
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "5" } ] } ]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "6" } ] } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "7" } ] } ],
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "8" } ] } ]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] } ],
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "10" } ] } ]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "11" } ] } ],
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] } ]
]
}
]
]
}
]
]
}
]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "PAIR" },
{ "prim": "EXEC" },
{ "prim": "UNPAIR" }
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "ADD" },
{ "prim": "ADD" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [
[
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "13" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "list", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{
"prim": "contract",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ]
}
]
}
]
}
]
}
],
"annots": [ "%balance_of" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "46" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "SELF", "annots": [ "%setCash" ] },
{ "prim": "NIL", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[ { "prim": "NIL", "args": [ { "prim": "operation" } ] } ]
]
},
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "CDR" },
{ "prim": "LEVEL" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "8" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
],
"annots": [ "%getBorrowRate" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "526" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SELF", "annots": [ "%doAccrueInterest" ] },
{ "prim": "PAIR" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[]
]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SIZE" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "11" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SELF", "annots": [ "%accrueInterest" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SELF", "annots": [ "%addReservesInternal" ] },
{ "prim": "AMOUNT" },
{ "prim": "SENDER" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "11" } ] },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "11" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ]
}
]
}
]
}
]
}
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "36" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{
"prim": "NIL",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "NIL",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
},
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "CONS" },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "CDR" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "9" } ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{
"prim": "PUSH",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] }
]
},
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SENDER" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
],
"annots": [ "%borrowAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "175" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "COMPARE" },
{ "prim": "GE" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ]
}
]
}
]
}
]
}
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "36" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{
"prim": "NIL",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "NIL",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
},
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "CONS" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "442" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SWAP" },
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "446" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "168" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "12" } ] },
{ "prim": "DUP", "args": [ { "int": "11" } ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "2" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "169" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "ADD" },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "7" } ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "442" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "446" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "442" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "446" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SWAP" },
{ "prim": "DROP" },
{ "prim": "SWAP" },
{ "prim": "DROP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DROP" },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DROP" }
]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "358" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "340" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "340" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "295" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[]
]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "312" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "58" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{
"prim": "PUSH",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] }
]
},
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SENDER" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
],
"annots": [ "%mintAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "71" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ]
}
]
}
]
}
]
}
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "36" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{
"prim": "NIL",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "NIL",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
},
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "CONS" },
{ "prim": "SENDER" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "DUP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "247" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "10" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "66" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "9" } ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "4" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
],
"annots": [ "%redeemAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "136" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "58" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "COMPARE" },
{ "prim": "GE" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient supply" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "UPDATE", "args": [ { "int": "10" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "131" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DIG", "args": [ { "int": "8" } ] },
{ "prim": "DIG", "args": [ { "int": "11" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "131" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient balance" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "UPDATE", "args": [ { "int": "4" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ]
}
]
}
]
}
]
}
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "36" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{
"prim": "NIL",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "NIL",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
},
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "CONS" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
}
]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] } ],
"annots": [ "%redeemAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "136" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "7" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "DUP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "247" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "COMPARE" },
{ "prim": "GE" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient supply" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "UPDATE", "args": [ { "int": "10" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "131" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DIG", "args": [ { "int": "8" } ] },
{ "prim": "DIG", "args": [ { "int": "11" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "131" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient balance" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "UPDATE", "args": [ { "int": "4" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
}
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "36" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{
"prim": "NIL",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "NIL",
"args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ]
},
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "CONS" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SIZE" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SELF", "annots": [ "%accrueInterest" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SELF", "annots": [ "%reduceReservesInternal" ] },
{ "prim": "AMOUNT" },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{
"prim": "PUSH",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] }
]
},
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SENDER" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
],
"annots": [ "%repayBorrowAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "225" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DROP" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "442" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SWAP" },
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "446" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ]
}
]
}
]
}
]
}
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "36" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{
"prim": "NIL",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "NIL",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
},
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "CONS" },
{ "prim": "SENDER" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "218" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "14" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "DUP", "args": [ { "int": "11" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "UPDATE", "args": [ { "int": "2" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "219" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "UPDATE", "args": [ { "int": "7" } ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{
"prim": "PUSH",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] }
]
},
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SENDER" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
],
"annots": [ "%repayBorrowAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "225" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DUP" },
{ "prim": "CDR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "6" } ] },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DROP" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "442" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SWAP" },
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "446" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ]
}
]
}
]
}
]
}
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "36" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{
"prim": "NIL",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "NIL",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
},
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "CDR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "CONS" },
{ "prim": "SENDER" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "CAR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "218" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "14" } ] },
{ "prim": "CDR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "DUP", "args": [ { "int": "11" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "UPDATE", "args": [ { "int": "2" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "CAR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "219" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "CDR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "UPDATE", "args": [ { "int": "7" } ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SIZE" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SELF", "annots": [ "%accrueInterest" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SELF", "annots": [ "%setInterestRateModelInternal" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SIZE" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "10" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SELF", "annots": [ "%accrueInterest" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SELF", "annots": [ "%setReserveFactorInternal" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DUP" },
{ "prim": "CDR" },
{
"prim": "CONTRACT",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "11" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "COMPARE" },
{ "prim": "NEQ" }
]
]
},
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SWEEP_UNDERLYING" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ]
}
]
}
]
}
]
}
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "36" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{
"prim": "NIL",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "NIL",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
},
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "SWAP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "CONS" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF",
"args": [
[
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CONTRACT", "args": [ { "prim": "unit" } ], "annots": [ "%receive" ] },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "18" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "BALANCE" },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CONTRACT", "args": [ { "prim": "unit" } ] },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "21" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "BALANCE" },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
],
[
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ],
[
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "247" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "247" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "COMPARE" },
{ "prim": "GE" }
]
]
},
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_TRANSFER_NOT_APPROVED" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{
"prim": "PUSH",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] }
]
},
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "address" } ] },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }
]
}
],
"annots": [ "%transferAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "261" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PAIR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "253" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "COMPARE" },
{ "prim": "GE" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_BALANCE" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "CAR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "254" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "11" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "DUP", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "254" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "254" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "UPDATE", "args": [ { "int": "4" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "255" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DUP", "args": [ { "int": "11" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "4" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "SENDER" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [
[
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "CAR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "11" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "DIG", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "SOME" },
{ "prim": "SENDER" },
{ "prim": "UPDATE" },
{ "prim": "UPDATE", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[ { "prim": "SWAP" }, { "prim": "DROP" } ]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "6" } ] },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
],
"annots": [ "%getBorrowRate" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "382" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SELF", "annots": [ "%setBorrowRatePerBlock" ] },
{ "prim": "PAIR" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SIZE" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "6" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "ADD" },
{ "prim": "ADD" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [
[
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "13" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "list", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{
"prim": "contract",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ]
}
]
}
]
}
]
}
],
"annots": [ "%balance_of" ]
},
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "46" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "SELF", "annots": [ "%setCash" ] },
{ "prim": "NIL", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[ { "prim": "NIL", "args": [ { "prim": "operation" } ] } ]
]
},
{ "prim": "SELF", "annots": [ "%updateBorrowRateInternal" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "7" } ] },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
],
"annots": [ "%getSupplyRate" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "413" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SELF", "annots": [ "%setSupplyRatePerBlock" ] },
{ "prim": "PAIR" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SIZE" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "7" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "ADD" },
{ "prim": "ADD" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [
[
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "13" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "list", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{
"prim": "contract",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ]
}
]
}
]
}
]
}
],
"annots": [ "%balance_of" ]
},
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "46" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "SELF", "annots": [ "%setCash" ] },
{ "prim": "NIL", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[ { "prim": "NIL", "args": [ { "prim": "operation" } ] } ]
]
},
{ "prim": "SELF", "annots": [ "%updateSupplyRateInternal" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
]
]
}
]
]
}
]
]
}
]
]
}
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "ITER", "args": [ [ { "prim": "CONS" } ] ] },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" }
]
]
}
]
{
"prim": "storage",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%accrualBlockNumber" ] },
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%accrualIntPeriodRelevance" ] },
{ "prim": "set", "args": [ { "prim": "nat" } ], "annots": [ "%activeOperations" ] }
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%administrator" ] },
{
"prim": "pair",
"args": [
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [ { "prim": "nat", "annots": [ "%interestIndex" ] }, { "prim": "nat", "annots": [ "%principal" ] } ],
"annots": [ "%accountBorrows" ]
},
{
"prim": "pair",
"args": [
{ "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ], "annots": [ "%approvals" ] },
{ "prim": "nat", "annots": [ "%balance" ] }
]
}
]
}
],
"annots": [ "%balances" ]
},
{ "prim": "nat", "annots": [ "%borrowIndex" ] }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%borrowRateMaxMantissa" ] },
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%borrowRatePerBlock" ] }, { "prim": "address", "annots": [ "%comptroller" ] } ] }
]
},
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%currentCash" ] },
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%expScale" ] }, { "prim": "address", "annots": [ "%fa2_TokenAddress" ] } ] }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%halfExpScale" ] },
{
"prim": "pair",
"args": [ { "prim": "nat", "annots": [ "%initialExchangeRateMantissa" ] }, { "prim": "address", "annots": [ "%interestRateModel" ] } ]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "bool", "annots": [ "%isAccrualInterestValid" ] },
{
"prim": "pair",
"args": [
{ "prim": "option", "args": [ { "prim": "address" } ], "annots": [ "%pendingAdministrator" ] },
{ "prim": "nat", "annots": [ "%reserveFactorMantissa" ] }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%reserveFactorMaxMantissa" ] },
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%supplyRatePerBlock" ] }, { "prim": "nat", "annots": [ "%tokenId" ] } ] }
]
},
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%totalBorrows" ] },
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%totalReserves" ] }, { "prim": "nat", "annots": [ "%totalSupply" ] } ] }
]
}
]
}
]
}
]
},
{
"prim": "big_map",
"args": [
{ "prim": "nat" },
{
"prim": "lambda",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit" },
{ "prim": "or", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
},
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "unit" } ] } ] }
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "nat" },
{
"prim": "or",
"args": [
{
"prim": "list",
"args": [ { "prim": "pair", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } ]
},
{ "prim": "address" }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "address" }, { "prim": "address" } ] },
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "set", "args": [ { "prim": "nat" } ] } ] } ]
},
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
]
},
{ "prim": "nat" }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] },
{
"prim": "pair",
"args": [ { "prim": "bool" }, { "prim": "pair", "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "nat" } ] } ]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "list", "args": [ { "prim": "operation" } ] },
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "set", "args": [ { "prim": "nat" } ] } ] } ]
},
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
]
},
{ "prim": "nat" }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] },
{
"prim": "pair",
"args": [ { "prim": "bool" }, { "prim": "pair", "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "nat" } ] } ]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
}
]
}
]
}
]
}
]
}
]
},
{
"prim": "parameter",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit", "annots": [ "%acceptGovernance" ] },
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%spender" ] }, { "prim": "nat", "annots": [ "%value" ] } ], "annots": [ "%approve" ] },
{ "prim": "nat", "annots": [ "%doAccrueInterest" ] }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "unit", "annots": [ "%hardResetOp" ] },
{ "prim": "or", "args": [ { "prim": "nat", "annots": [ "%reduceReservesInternal" ] }, { "prim": "unit", "annots": [ "%removePendingGovernance" ] } ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "nat", "annots": [ "%setBorrowRatePerBlock" ] },
{
"prim": "or",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [ { "prim": "address", "annots": [ "%owner" ] }, { "prim": "nat", "annots": [ "%token_id" ] } ],
"annots": [ "%request" ]
},
{ "prim": "nat", "annots": [ "%balance" ] }
]
}
],
"annots": [ "%setCash" ]
},
{ "prim": "address", "annots": [ "%setComptroller" ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [ { "prim": "address", "annots": [ "%setInterestRateModelInternal" ] }, { "prim": "address", "annots": [ "%setPendingGovernance" ] } ]
},
{ "prim": "or", "args": [ { "prim": "nat", "annots": [ "%setReserveFactorInternal" ] }, { "prim": "nat", "annots": [ "%setSupplyRatePerBlock" ] } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit", "annots": [ "%accrueInterest" ] },
{
"prim": "or",
"args": [
{ "prim": "nat", "annots": [ "%addReserves" ] },
{
"prim": "pair",
"args": [ { "prim": "nat", "annots": [ "%addAmount" ] }, { "prim": "address", "annots": [ "%originalSender" ] } ],
"annots": [ "%addReservesInternal" ]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "nat", "annots": [ "%borrow" ] },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%borrowBalanceStored" ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%exchangeRateStored" ] },
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "contract",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] },
{
"prim": "pair",
"args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ]
}
]
}
]
}
],
"annots": [ "%getAccountSnapshot" ]
}
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%owner" ] }, { "prim": "address", "annots": [ "%spender" ] } ] },
{ "prim": "contract", "args": [ { "prim": "nat" } ] }
],
"annots": [ "%getAllowance" ]
},
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getBalance" ] },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getBalanceOfUnderlying" ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getCash" ] },
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getTotalSupply" ] }
]
},
{ "prim": "or", "args": [ { "prim": "nat", "annots": [ "%mint" ] }, { "prim": "nat", "annots": [ "%redeem" ] } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "nat", "annots": [ "%redeemUnderlying" ] },
{ "prim": "or", "args": [ { "prim": "nat", "annots": [ "%reduceReserves" ] }, { "prim": "nat", "annots": [ "%repayBorrow" ] } ] }
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [ { "prim": "address", "annots": [ "%borrower" ] }, { "prim": "nat", "annots": [ "%repayAmount" ] } ],
"annots": [ "%repayBorrowBehalf" ]
},
{ "prim": "nat", "annots": [ "%setAccrualIntPeriodRelevance" ] }
]
},
{ "prim": "or", "args": [ { "prim": "address", "annots": [ "%setInterestRateModel" ] }, { "prim": "nat", "annots": [ "%setReserveFactor" ] } ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [ { "prim": "nat", "annots": [ "%amount" ] }, { "prim": "address", "annots": [ "%tokenAddress" ] } ],
"annots": [ "%sweepFA12" ]
},
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%amount" ] },
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%id" ] }, { "prim": "address", "annots": [ "%tokenAddress" ] } ] }
],
"annots": [ "%sweepFA2" ]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "bool", "annots": [ "%sweepMutez" ] },
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%from" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%to" ] }, { "prim": "nat", "annots": [ "%value" ] } ] }
],
"annots": [ "%transfer" ]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [ { "prim": "unit", "annots": [ "%updateBorrowRateInternal" ] }, { "prim": "unit", "annots": [ "%updateBorrowRatePerBlock" ] } ]
},
{
"prim": "or",
"args": [ { "prim": "unit", "annots": [ "%updateSupplyRateInternal" ] }, { "prim": "unit", "annots": [ "%updateSupplyRatePerBlock" ] } ]
}
]
}
]
}
]
}
]
}
]
}
]
},
{
"prim": "code",
"args": [
[
{
"prim": "CAST",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit" },
{ "prim": "or", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
},
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "unit" } ] } ] }
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "nat" },
{
"prim": "or",
"args": [
{
"prim": "list",
"args": [ { "prim": "pair", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } ]
},
{ "prim": "address" }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "address" }, { "prim": "address" } ] },
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit" },
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] } ]
},
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] },
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "contract",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
}
]
}
]
}
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "address" } ] },
{ "prim": "contract", "args": [ { "prim": "nat" } ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] }
]
},
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] },
{ "prim": "or", "args": [ { "prim": "address" }, { "prim": "nat" } ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "bool" },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "unit" } ] },
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "unit" } ] }
]
}
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "set", "args": [ { "prim": "nat" } ] } ] } ]
},
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
]
},
{ "prim": "nat" }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] },
{
"prim": "pair",
"args": [ { "prim": "bool" }, { "prim": "pair", "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "nat" } ] } ]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "big_map",
"args": [
{ "prim": "nat" },
{
"prim": "lambda",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit" },
{ "prim": "or", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
},
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "unit" } ] } ] }
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "nat" },
{
"prim": "or",
"args": [
{
"prim": "list",
"args": [
{ "prim": "pair", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
},
{ "prim": "address" }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "address" }, { "prim": "address" } ] },
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "set", "args": [ { "prim": "nat" } ] } ] } ]
},
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ]
}
]
}
]
},
{ "prim": "nat" }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] },
{
"prim": "pair",
"args": [
{ "prim": "bool" },
{ "prim": "pair", "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "nat" } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "list", "args": [ { "prim": "operation" } ] },
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "set", "args": [ { "prim": "nat" } ] } ] } ]
},
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ]
}
]
}
]
},
{ "prim": "nat" }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] },
{
"prim": "pair",
"args": [
{ "prim": "bool" },
{ "prim": "pair", "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "nat" } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
}
]
}
]
}
]
}
]
}
]
}
]
},
{ "prim": "UNPAIR", "args": [ { "int": "3" } ] },
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DUP" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1" } ] } ],
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "2" } ] } ]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "3" } ] } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "4" } ] } ],
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "5" } ] } ]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "6" } ] } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "7" } ] } ],
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "8" } ] } ]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] } ],
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "10" } ] } ]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "11" } ] } ],
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] } ]
]
}
]
]
}
]
]
}
]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "PAIR" },
{ "prim": "EXEC" },
{ "prim": "UNPAIR" }
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "ADD" },
{ "prim": "ADD" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [
[
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "13" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "list", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{
"prim": "contract",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ]
}
]
}
]
}
]
}
],
"annots": [ "%balance_of" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "46" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "SELF", "annots": [ "%setCash" ] },
{ "prim": "NIL", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[ { "prim": "NIL", "args": [ { "prim": "operation" } ] } ]
]
},
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "CDR" },
{ "prim": "LEVEL" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "8" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
],
"annots": [ "%getBorrowRate" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "526" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SELF", "annots": [ "%doAccrueInterest" ] },
{ "prim": "PAIR" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[]
]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SIZE" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "11" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SELF", "annots": [ "%accrueInterest" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SELF", "annots": [ "%addReservesInternal" ] },
{ "prim": "AMOUNT" },
{ "prim": "SENDER" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "11" } ] },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "11" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ]
}
]
}
]
}
]
}
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "36" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{
"prim": "NIL",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "NIL",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
},
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "CONS" },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "CDR" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "9" } ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{
"prim": "PUSH",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] }
]
},
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SENDER" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
],
"annots": [ "%borrowAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "175" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "COMPARE" },
{ "prim": "GE" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ]
}
]
}
]
}
]
}
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "36" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{
"prim": "NIL",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "NIL",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
},
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "CONS" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "442" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SWAP" },
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "446" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "168" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "12" } ] },
{ "prim": "DUP", "args": [ { "int": "11" } ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "2" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "169" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "ADD" },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "7" } ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "442" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "446" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "442" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "446" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SWAP" },
{ "prim": "DROP" },
{ "prim": "SWAP" },
{ "prim": "DROP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DROP" },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DROP" }
]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "358" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "340" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "340" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "295" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[]
]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "312" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "58" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{
"prim": "PUSH",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] }
]
},
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SENDER" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
],
"annots": [ "%mintAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "71" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ]
}
]
}
]
}
]
}
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "36" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{
"prim": "NIL",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "NIL",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
},
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "CONS" },
{ "prim": "SENDER" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "DUP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "247" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "10" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "66" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "9" } ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "4" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
],
"annots": [ "%redeemAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "136" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "58" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "COMPARE" },
{ "prim": "GE" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient supply" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "UPDATE", "args": [ { "int": "10" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "131" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DIG", "args": [ { "int": "8" } ] },
{ "prim": "DIG", "args": [ { "int": "11" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "131" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient balance" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "UPDATE", "args": [ { "int": "4" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ]
}
]
}
]
}
]
}
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "36" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{
"prim": "NIL",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "NIL",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
},
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "CONS" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
}
]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] } ],
"annots": [ "%redeemAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "136" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "7" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "DUP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "247" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "COMPARE" },
{ "prim": "GE" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient supply" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "UPDATE", "args": [ { "int": "10" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "131" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DIG", "args": [ { "int": "8" } ] },
{ "prim": "DIG", "args": [ { "int": "11" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "131" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient balance" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "UPDATE", "args": [ { "int": "4" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
}
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "36" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{
"prim": "NIL",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "NIL",
"args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ]
},
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "CONS" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SIZE" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SELF", "annots": [ "%accrueInterest" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SELF", "annots": [ "%reduceReservesInternal" ] },
{ "prim": "AMOUNT" },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{
"prim": "PUSH",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] }
]
},
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SENDER" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
],
"annots": [ "%repayBorrowAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "225" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DROP" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "442" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SWAP" },
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "446" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ]
}
]
}
]
}
]
}
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "36" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{
"prim": "NIL",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "NIL",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
},
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "CONS" },
{ "prim": "SENDER" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "218" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "14" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "DUP", "args": [ { "int": "11" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "UPDATE", "args": [ { "int": "2" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "219" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "UPDATE", "args": [ { "int": "7" } ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{
"prim": "PUSH",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] }
]
},
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SENDER" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
],
"annots": [ "%repayBorrowAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "225" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DUP" },
{ "prim": "CDR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "6" } ] },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DROP" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "442" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SWAP" },
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "446" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ]
}
]
}
]
}
]
}
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "36" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{
"prim": "NIL",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "NIL",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
},
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "CDR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "CONS" },
{ "prim": "SENDER" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "CAR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "218" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "14" } ] },
{ "prim": "CDR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "DUP", "args": [ { "int": "11" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "UPDATE", "args": [ { "int": "2" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "CAR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "219" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "CDR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "UPDATE", "args": [ { "int": "7" } ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SIZE" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SELF", "annots": [ "%accrueInterest" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SELF", "annots": [ "%setInterestRateModelInternal" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SIZE" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "10" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SELF", "annots": [ "%accrueInterest" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SELF", "annots": [ "%setReserveFactorInternal" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DUP" },
{ "prim": "CDR" },
{
"prim": "CONTRACT",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "11" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "COMPARE" },
{ "prim": "NEQ" }
]
]
},
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SWEEP_UNDERLYING" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ]
}
]
}
]
}
]
}
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "36" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{
"prim": "NIL",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "NIL",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
},
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "SWAP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "CONS" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF",
"args": [
[
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CONTRACT", "args": [ { "prim": "unit" } ], "annots": [ "%receive" ] },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "18" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "BALANCE" },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CONTRACT", "args": [ { "prim": "unit" } ] },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "21" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "BALANCE" },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
],
[
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ],
[
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "247" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "247" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "COMPARE" },
{ "prim": "GE" }
]
]
},
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_TRANSFER_NOT_APPROVED" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{
"prim": "PUSH",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] }
]
},
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "address" } ] },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }
]
}
],
"annots": [ "%transferAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "261" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PAIR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "253" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "COMPARE" },
{ "prim": "GE" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_BALANCE" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "CAR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "254" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "11" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "DUP", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "254" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "254" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "UPDATE", "args": [ { "int": "4" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "255" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DUP", "args": [ { "int": "11" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "4" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "SENDER" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [
[
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "CAR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "11" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "DIG", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "SOME" },
{ "prim": "SENDER" },
{ "prim": "UPDATE" },
{ "prim": "UPDATE", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[ { "prim": "SWAP" }, { "prim": "DROP" } ]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "6" } ] },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
],
"annots": [ "%getBorrowRate" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "382" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SELF", "annots": [ "%setBorrowRatePerBlock" ] },
{ "prim": "PAIR" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SIZE" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "6" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "ADD" },
{ "prim": "ADD" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [
[
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "13" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "list", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{
"prim": "contract",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ]
}
]
}
]
}
]
}
],
"annots": [ "%balance_of" ]
},
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "46" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "SELF", "annots": [ "%setCash" ] },
{ "prim": "NIL", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[ { "prim": "NIL", "args": [ { "prim": "operation" } ] } ]
]
},
{ "prim": "SELF", "annots": [ "%updateBorrowRateInternal" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "7" } ] },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
],
"annots": [ "%getSupplyRate" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "413" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SELF", "annots": [ "%setSupplyRatePerBlock" ] },
{ "prim": "PAIR" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SIZE" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "7" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "ADD" },
{ "prim": "ADD" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [
[
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "13" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "list", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{
"prim": "contract",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ]
}
]
}
]
}
]
}
],
"annots": [ "%balance_of" ]
},
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "46" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "SELF", "annots": [ "%setCash" ] },
{ "prim": "NIL", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[ { "prim": "NIL", "args": [ { "prim": "operation" } ] } ]
]
},
{ "prim": "SELF", "annots": [ "%updateSupplyRateInternal" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
]
]
}
]
]
}
]
]
}
]
]
}
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "ITER", "args": [ [ { "prim": "CONS" } ] ] },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" }
]
]
}
]
Check transferIn
Try mint not as operator
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
Balance: 0.000000
Operations:
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | CurrentCash | ExpScale | Fa2_TokenAddress | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TokenId | TotalBorrows | TotalReserves | TotalSupply | ||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | True |
Generated Michelson
(Left (Left (Left (Left (Right Unit)))))
{ "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Unit" } ] } ] } ] } ] } ] }
Transaction
Transaction [OK] by [tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5] at time [timestamp(0)] to KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H
| Address | Amount | Metadata | Token_id | ||||||||
| tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi |
|
Balance: 0.000000
Operations:
Storage:
| Administrator | All_tokens | Ledger | Metadata | Operators | Paused | Token_metadata | Total_supply | ||||||||||||||||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
|
|
| False |
|
|
Generated Michelson
(Left (Right (Left (Pair (Pair "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" 200) (Pair {Elt "decimals" 0x32; Elt "name" 0x54686520546f6b656e205a65726f; Elt "symbol" 0x544b30} 0)))))
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" }, { "int": "200" } ] },
{
"prim": "Pair",
"args": [
[
{ "prim": "Elt", "args": [ { "string": "decimals" }, { "bytes": "32" } ] },
{ "prim": "Elt", "args": [ { "string": "name" }, { "bytes": "54686520546f6b656e205a65726f" } ] },
{ "prim": "Elt", "args": [ { "string": "symbol" }, { "bytes": "544b30" } ] }
],
{ "int": "0" }
]
}
]
}
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" }, { "int": "200" } ] },
{
"prim": "Pair",
"args": [
[
{ "prim": "Elt", "args": [ { "string": "decimals" }, { "bytes": "32" } ] },
{ "prim": "Elt", "args": [ { "string": "name" }, { "bytes": "54686520546f6b656e205a65726f" } ] },
{ "prim": "Elt", "args": [ { "string": "symbol" }, { "bytes": "544b30" } ] }
],
{ "int": "0" }
]
}
]
}
]
}
]
}
]
}
Reverted transactionBalance: 0.000000
()
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1).open_some()
to sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1).open_some()| CToken | Minter | MintAmount |
| KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3 | tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi |
Transfer 0.000000 to sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some()
to sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some()| From_ | Txs | ||||||
| tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi |
|
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | CurrentCash | ExpScale | Fa2_TokenAddress | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TokenId | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | False |
Generated Michelson
(Left (Right (Right (Left (Right (Left 100))))))
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "int": "100" } ] } ] } ] } ] } ]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "int": "100" } ] } ] } ] } ] } ]
}
]
}
Transaction
Follow-up-transfer: KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1%mintAllowed (sp.record(cToken = s...)
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3] at time [timestamp(0)] to KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1
| CToken | Minter | MintAmount |
| KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3 | tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi |
Balance: 0.000000
Operations:
Storage:
| Borrow_allowed | Mint_allowed | Redeem_allowed | Repay_borrow_allowed |
| True | True | True | True |
Generated Michelson
(Left (Left (Right (Right (Right (Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" (Pair "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" 100)))))))
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Pair",
"args": [
{ "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" },
{ "prim": "Pair", "args": [ { "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" }, { "int": "100" } ] }
]
}
]
}
]
}
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Pair",
"args": [
{ "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" },
{ "prim": "Pair", "args": [ { "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" }, { "int": "100" } ] }
]
}
]
}
]
}
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%transfer (sp.list([sp.record(f...)
Balance: 0.000000
()Transaction [KO] by [KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3] at time [timestamp(0)] to KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H
| From_ | Txs | ||||||
| tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi |
|
Balance: 0.000000
Error:
Wrong condition:
Message: 'FA2_NOT_OPERATOR'
Message: 'FA2_NOT_OPERATOR'
Generated Michelson
(Right (Right (Left {Pair "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" {Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" (Pair 0 100)}})))
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
[
{
"prim": "Pair",
"args": [
{ "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" },
[ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "100" } ] } ] } ]
]
}
]
]
}
]
}
]
}
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
[
{
"prim": "Pair",
"args": [
{ "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" },
[ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "100" } ] } ] } ]
]
}
]
]
}
]
}
]
}
Mint as operator
Transaction
Transaction [OK] by [tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5] at time [timestamp(0)] to KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H
|
Balance: 0.000000
Operations:
Storage:
| Administrator | All_tokens | Ledger | Metadata | Operators | Paused | Token_metadata | Total_supply | ||||||||||||||||||||||||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
|
|
| False |
|
|
Generated Michelson
(Right (Right (Right {Left (Pair "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" (Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" 0))})))
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
[
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
{ "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" },
{ "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "int": "0" } ] }
]
}
]
}
]
]
}
]
}
]
}
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
[
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
{ "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" },
{ "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "int": "0" } ] }
]
}
]
}
]
]
}
]
}
]
}
Multiple operationsBalance: 0.000000
()
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF).open_some()
to sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF).open_some()| Borrows | Cash | Cb | Reserves |
| sp.contract(sp.TNat, KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some() |
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | CurrentCash | ExpScale | Fa2_TokenAddress | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TokenId | TotalBorrows | TotalReserves | TotalSupply | ||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | True |
Generated Michelson
(Left (Left (Left (Left (Right Unit)))))
{ "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Unit" } ] } ] } ] } ] } ] }
Transaction
Follow-up-transfer: KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF%getBorrowRate (sp.record(borrows = ...)
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3] at time [timestamp(0)] to KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF
| Borrows | Cash | Cb | Reserves |
| sp.contract(sp.TNat, KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some() |
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TNat, KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some()
to sp.contract(sp.TNat, KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some()Storage:
| BorrowRate | SupplyRate |
Generated Michelson
(Left (Left (Pair (Pair 0 0) (Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%doAccrueInterest" 0))))
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] },
{ "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%doAccrueInterest" }, { "int": "0" } ] }
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] },
{ "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%doAccrueInterest" }, { "int": "0" } ] }
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%doAccrueInterest (840000000000) (Follow-up-transfer: KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF%getBorrowRate (sp.record(borrows = ...))Balance: 0.000000
()Transaction [OK] by [KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
Balance: 0.000000
Operations:
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | CurrentCash | ExpScale | Fa2_TokenAddress | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TokenId | TotalBorrows | TotalReserves | TotalSupply | ||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | True |
Generated Michelson
(Left (Left (Right (Right (Left 840000000000)))))
{
"prim": "Left",
"args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "int": "840000000000" } ] } ] } ] } ] } ]
}
"prim": "Left",
"args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "int": "840000000000" } ] } ] } ] } ] } ]
}
Multiple operationsBalance: 0.000000
()
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1).open_some()
to sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1).open_some()| CToken | Minter | MintAmount |
| KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3 | tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi |
Transfer 0.000000 to sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some()
to sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some()| From_ | Txs | ||||||
| tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi |
|
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | CurrentCash | ExpScale | Fa2_TokenAddress | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TokenId | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | False |
Generated Michelson
(Left (Right (Right (Left (Right (Left 100))))))
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "int": "100" } ] } ] } ] } ] } ]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "int": "100" } ] } ] } ] } ] } ]
}
]
}
Transaction
Follow-up-transfer: KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1%mintAllowed (sp.record(cToken = s...)
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3] at time [timestamp(0)] to KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1
| CToken | Minter | MintAmount |
| KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3 | tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi |
Balance: 0.000000
Operations:
Storage:
| Borrow_allowed | Mint_allowed | Redeem_allowed | Repay_borrow_allowed |
| True | True | True | True |
Generated Michelson
(Left (Left (Right (Right (Right (Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" (Pair "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" 100)))))))
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Pair",
"args": [
{ "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" },
{ "prim": "Pair", "args": [ { "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" }, { "int": "100" } ] }
]
}
]
}
]
}
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Pair",
"args": [
{ "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" },
{ "prim": "Pair", "args": [ { "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" }, { "int": "100" } ] }
]
}
]
}
]
}
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%transfer (sp.list([sp.record(f...)
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3] at time [timestamp(0)] to KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H
| From_ | Txs | ||||||
| tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi |
|
Balance: 0.000000
Operations:
Storage:
| Administrator | All_tokens | Ledger | Metadata | Operators | Paused | Token_metadata | Total_supply | ||||||||||||||||||||||||||||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
|
|
| False |
|
|
Generated Michelson
(Right (Right (Left {Pair "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" {Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" (Pair 0 100)}})))
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
[
{
"prim": "Pair",
"args": [
{ "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" },
[ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "100" } ] } ] } ]
]
}
]
]
}
]
}
]
}
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
[
{
"prim": "Pair",
"args": [
{ "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" },
[ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "100" } ] } ] } ]
]
}
]
]
}
]
}
]
}
Second mint
Multiple operationsBalance: 0.000000
()
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")), KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some()
to sp.contract(sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")), KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some()| Requests | Callback | ||||
| sp.contract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance"))), KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some() |
Transfer 0.000000 to sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF).open_some()
to sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF).open_some()| Borrows | Cash | Cb | Reserves |
| sp.contract(sp.TNat, KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some() |
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | CurrentCash | ExpScale | Fa2_TokenAddress | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TokenId | TotalBorrows | TotalReserves | TotalSupply | |||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | True |
Generated Michelson
(Left (Left (Left (Left (Right Unit)))))
{ "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Unit" } ] } ] } ] } ] } ] }
Transaction
Follow-up-transfer: KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%balance_of (sp.record(requests =...)
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3] at time [timestamp(0)] to KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H
| Requests | Callback | ||||
| sp.contract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance"))), KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some() |
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance"))), KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some()
to sp.contract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance"))), KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some()| Balance | Request | ||||
| 100 |
|
Storage:
| Administrator | All_tokens | Ledger | Metadata | Operators | Paused | Token_metadata | Total_supply | ||||||||||||||||||||||||||||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
|
|
| False |
|
|
Generated Michelson
(Left (Left (Pair {Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" 0} "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%setCash")))
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
[ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "int": "0" } ] } ],
{ "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%setCash" }
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
[ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "int": "0" } ] } ],
{ "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%setCash" }
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%setCash (sp.list([sp.record(r...) (Follow-up-transfer: KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%balance_of (sp.record(requests =...))
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
| Balance | Request | ||||
| 100 |
|
Balance: 0.000000
Operations:
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | CurrentCash | ExpScale | Fa2_TokenAddress | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TokenId | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | True |
Generated Michelson
(Right (Left (Right (Left (Left {Pair (Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" 0) 100})))))
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
[ { "prim": "Pair", "args": [ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "int": "0" } ] }, { "int": "100" } ] } ]
]
}
]
}
]
}
]
}
]
}
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
[ { "prim": "Pair", "args": [ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "int": "0" } ] }, { "int": "100" } ] } ]
]
}
]
}
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF%getBorrowRate (sp.record(borrows = ...)
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3] at time [timestamp(0)] to KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF
| Borrows | Cash | Cb | Reserves |
| sp.contract(sp.TNat, KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some() |
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TNat, KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some()
to sp.contract(sp.TNat, KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some()Storage:
| BorrowRate | SupplyRate |
Generated Michelson
(Left (Left (Pair (Pair 0 0) (Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%doAccrueInterest" 0))))
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] },
{ "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%doAccrueInterest" }, { "int": "0" } ] }
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] },
{ "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%doAccrueInterest" }, { "int": "0" } ] }
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%doAccrueInterest (840000000000) (Follow-up-transfer: KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF%getBorrowRate (sp.record(borrows = ...))Balance: 0.000000
()Transaction [OK] by [KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
Balance: 0.000000
Operations:
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | CurrentCash | ExpScale | Fa2_TokenAddress | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TokenId | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | True |
Generated Michelson
(Left (Left (Right (Right (Left 840000000000)))))
{
"prim": "Left",
"args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "int": "840000000000" } ] } ] } ] } ] } ]
}
"prim": "Left",
"args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "int": "840000000000" } ] } ] } ] } ] } ]
}
Multiple operationsBalance: 0.000000
()
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1).open_some()
to sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1).open_some()| CToken | Minter | MintAmount |
| KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3 | tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi |
Transfer 0.000000 to sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some()
to sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some()| From_ | Txs | ||||||
| tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi |
|
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | CurrentCash | ExpScale | Fa2_TokenAddress | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TokenId | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | False |
Generated Michelson
(Left (Right (Right (Left (Right (Left 100))))))
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "int": "100" } ] } ] } ] } ] } ]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "int": "100" } ] } ] } ] } ] } ]
}
]
}
Transaction
Follow-up-transfer: KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1%mintAllowed (sp.record(cToken = s...)
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3] at time [timestamp(0)] to KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1
| CToken | Minter | MintAmount |
| KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3 | tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi |
Balance: 0.000000
Operations:
Storage:
| Borrow_allowed | Mint_allowed | Redeem_allowed | Repay_borrow_allowed |
| True | True | True | True |
Generated Michelson
(Left (Left (Right (Right (Right (Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" (Pair "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" 100)))))))
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Pair",
"args": [
{ "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" },
{ "prim": "Pair", "args": [ { "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" }, { "int": "100" } ] }
]
}
]
}
]
}
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Pair",
"args": [
{ "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" },
{ "prim": "Pair", "args": [ { "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" }, { "int": "100" } ] }
]
}
]
}
]
}
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%transfer (sp.list([sp.record(f...)
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3] at time [timestamp(0)] to KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H
| From_ | Txs | ||||||
| tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi |
|
Balance: 0.000000
Operations:
Storage:
| Administrator | All_tokens | Ledger | Metadata | Operators | Paused | Token_metadata | Total_supply | ||||||||||||||||||||||||||||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
|
|
| False |
|
|
Generated Michelson
(Right (Right (Left {Pair "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" {Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" (Pair 0 100)}})))
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
[
{
"prim": "Pair",
"args": [
{ "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" },
[ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "100" } ] } ] } ]
]
}
]
]
}
]
}
]
}
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
[
{
"prim": "Pair",
"args": [
{ "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" },
[ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "100" } ] } ] } ]
]
}
]
]
}
]
}
]
}
Try mint with no cash
Reverted transactionBalance: 0.000000
()
Transaction
Transaction [KO] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
Balance: 0.000000
Error:
Wrong condition:
Message: 'CT_INTEREST_INVALID'
Message: 'CT_INTEREST_INVALID'
Generated Michelson
(Left (Right (Right (Left (Right (Left 100))))))
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "int": "100" } ] } ] } ] } ] } ]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "int": "100" } ] } ] } ] } ] } ]
}
]
}
Check getCash
Before accrueInterest
Multiple operations
Balance: 0.000000
()
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
| sp.contract(sp.TNat, KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC).open_some() |
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TNat, KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC).open_some()
to sp.contract(sp.TNat, KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC).open_some()Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | CurrentCash | ExpScale | Fa2_TokenAddress | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TokenId | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | False |
Generated Michelson
(Left (Right (Left (Right (Right (Left (Pair Unit "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC%targetNat")))))))
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Left", "args": [ { "prim": "Pair", "args": [ { "prim": "Unit" }, { "string": "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC%targetNat" } ] } ] } ]
}
]
}
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Left", "args": [ { "prim": "Pair", "args": [ { "prim": "Unit" }, { "string": "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC%targetNat" } ] } ] } ]
}
]
}
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC%targetNat (100)Balance: 0.000000
()Transaction [OK] by [KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3] at time [timestamp(0)] to KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC
Balance: 0.000000
Operations:
Storage:
| Last |
Generated Michelson
(Right 100)
{ "prim": "Right", "args": [ { "int": "100" } ] }
After accrueInterest
Multiple operationsBalance: 0.000000
()
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")), KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some()
to sp.contract(sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")), KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some()| Requests | Callback | ||||
| sp.contract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance"))), KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some() |
Transfer 0.000000 to sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF).open_some()
to sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF).open_some()| Borrows | Cash | Cb | Reserves |
| sp.contract(sp.TNat, KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some() |
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | CurrentCash | ExpScale | Fa2_TokenAddress | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TokenId | TotalBorrows | TotalReserves | TotalSupply | |||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | True |
Generated Michelson
(Left (Left (Left (Left (Right Unit)))))
{ "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Unit" } ] } ] } ] } ] } ] }
Transaction
Follow-up-transfer: KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%balance_of (sp.record(requests =...)
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3] at time [timestamp(0)] to KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H
| Requests | Callback | ||||
| sp.contract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance"))), KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some() |
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance"))), KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some()
to sp.contract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance"))), KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some()| Balance | Request | ||||
| 200 |
|
Storage:
| Administrator | All_tokens | Ledger | Metadata | Operators | Paused | Token_metadata | Total_supply | ||||||||||||||||||||||||||||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
|
|
| False |
|
|
Generated Michelson
(Left (Left (Pair {Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" 0} "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%setCash")))
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
[ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "int": "0" } ] } ],
{ "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%setCash" }
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
[ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "int": "0" } ] } ],
{ "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%setCash" }
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%setCash (sp.list([sp.record(r...) (Follow-up-transfer: KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%balance_of (sp.record(requests =...))
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
| Balance | Request | ||||
| 200 |
|
Balance: 0.000000
Operations:
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | CurrentCash | ExpScale | Fa2_TokenAddress | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TokenId | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | True |
Generated Michelson
(Right (Left (Right (Left (Left {Pair (Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" 0) 200})))))
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
[ { "prim": "Pair", "args": [ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "int": "0" } ] }, { "int": "200" } ] } ]
]
}
]
}
]
}
]
}
]
}
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
[ { "prim": "Pair", "args": [ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "int": "0" } ] }, { "int": "200" } ] } ]
]
}
]
}
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF%getBorrowRate (sp.record(borrows = ...)
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3] at time [timestamp(0)] to KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF
| Borrows | Cash | Cb | Reserves |
| sp.contract(sp.TNat, KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some() |
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TNat, KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some()
to sp.contract(sp.TNat, KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some()Storage:
| BorrowRate | SupplyRate |
Generated Michelson
(Left (Left (Pair (Pair 0 100) (Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%doAccrueInterest" 0))))
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "100" } ] },
{ "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%doAccrueInterest" }, { "int": "0" } ] }
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "100" } ] },
{ "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%doAccrueInterest" }, { "int": "0" } ] }
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%doAccrueInterest (840000000000) (Follow-up-transfer: KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF%getBorrowRate (sp.record(borrows = ...))Balance: 0.000000
()Transaction [OK] by [KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
Balance: 0.000000
Operations:
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | CurrentCash | ExpScale | Fa2_TokenAddress | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TokenId | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | True |
Generated Michelson
(Left (Left (Right (Right (Left 840000000000)))))
{
"prim": "Left",
"args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "int": "840000000000" } ] } ] } ] } ] } ]
}
"prim": "Left",
"args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "int": "840000000000" } ] } ] } ] } ] } ]
}
Multiple operations
Balance: 0.000000
()
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
| sp.contract(sp.TNat, KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC).open_some() |
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TNat, KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC).open_some()
to sp.contract(sp.TNat, KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC).open_some()Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | CurrentCash | ExpScale | Fa2_TokenAddress | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TokenId | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | True |
Generated Michelson
(Left (Right (Left (Right (Right (Left (Pair Unit "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC%targetNat")))))))
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Left", "args": [ { "prim": "Pair", "args": [ { "prim": "Unit" }, { "string": "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC%targetNat" } ] } ] } ]
}
]
}
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Left", "args": [ { "prim": "Pair", "args": [ { "prim": "Unit" }, { "string": "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC%targetNat" } ] } ] } ]
}
]
}
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC%targetNat (200)Balance: 0.000000
()Transaction [OK] by [KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3] at time [timestamp(0)] to KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC
Balance: 0.000000
Operations:
Storage:
| Last |
Generated Michelson
(Right 200)
{ "prim": "Right", "args": [ { "int": "200" } ] }
getTotalSupply
Multiple operations
Balance: 0.000000
()
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
| sp.contract(sp.TNat, KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC).open_some() |
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TNat, KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC).open_some()
to sp.contract(sp.TNat, KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC).open_some()Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | CurrentCash | ExpScale | Fa2_TokenAddress | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TokenId | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | True |
Generated Michelson
(Left (Right (Left (Right (Right (Right (Pair Unit "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC%targetNat")))))))
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Right", "args": [ { "prim": "Pair", "args": [ { "prim": "Unit" }, { "string": "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC%targetNat" } ] } ] } ]
}
]
}
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Right", "args": [ { "prim": "Pair", "args": [ { "prim": "Unit" }, { "string": "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC%targetNat" } ] } ] } ]
}
]
}
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC%targetNat (200)Balance: 0.000000
()Transaction [OK] by [KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3] at time [timestamp(0)] to KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC
Balance: 0.000000
Operations:
Storage:
| Last |
Generated Michelson
(Right 200)
{ "prim": "Right", "args": [ { "int": "200" } ] }
Check setCash
Try direct call
Reverted transaction
Balance: 0.000000
()
Transaction
Transaction [KO] by [tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
| Balance | Request | ||||
| 123 |
|
Balance: 0.000000
Error:
Wrong condition:
Message: 'OP_NOT_ACTIVE'
Message: 'OP_NOT_ACTIVE'
Generated Michelson
(Right (Left (Right (Left (Left {Pair (Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" 0) 123})))))
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
[ { "prim": "Pair", "args": [ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "int": "0" } ] }, { "int": "123" } ] } ]
]
}
]
}
]
}
]
}
]
}
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
[ { "prim": "Pair", "args": [ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "int": "0" } ] }, { "int": "123" } ] } ]
]
}
]
}
]
}
]
}
]
}
Try with callback
Reverted transaction
Balance: 0.000000
()
Transaction
Transaction [OK] by [tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5] at time [timestamp(0)] to KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H
| Requests | Callback | ||||
| sp.contract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance"))), KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some() |
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance"))), KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some()
to sp.contract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance"))), KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some()| Balance | Request | ||||
| 200 |
|
Storage:
| Administrator | All_tokens | Ledger | Metadata | Operators | Paused | Token_metadata | Total_supply | ||||||||||||||||||||||||||||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
|
|
| False |
|
|
Generated Michelson
(Left (Left (Pair {Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" 0} "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%setCash")))
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
[ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "int": "0" } ] } ],
{ "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%setCash" }
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
[ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "int": "0" } ] } ],
{ "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%setCash" }
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%setCash (sp.list([sp.record(r...)
Balance: 0.000000
()Transaction [KO] by [KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
| Balance | Request | ||||
| 200 |
|
Balance: 0.000000
Error:
Wrong condition:
Message: 'OP_NOT_ACTIVE'
Message: 'OP_NOT_ACTIVE'
Generated Michelson
(Right (Left (Right (Left (Left {Pair (Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" 0) 200})))))
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
[ { "prim": "Pair", "args": [ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "int": "0" } ] }, { "int": "200" } ] } ]
]
}
]
}
]
}
]
}
]
}
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
[ { "prim": "Pair", "args": [ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "int": "0" } ] }, { "int": "200" } ] } ]
]
}
]
}
]
}
]
}
]
}
Check transferOut
Multiple operationsBalance: 0.000000
()
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")), KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some()
to sp.contract(sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")), KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some()| Requests | Callback | ||||
| sp.contract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance"))), KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some() |
Transfer 0.000000 to sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF).open_some()
to sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF).open_some()| Borrows | Cash | Cb | Reserves |
| sp.contract(sp.TNat, KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some() |
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | CurrentCash | ExpScale | Fa2_TokenAddress | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TokenId | TotalBorrows | TotalReserves | TotalSupply | |||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | True |
Generated Michelson
(Left (Left (Left (Left (Right Unit)))))
{ "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Unit" } ] } ] } ] } ] } ] }
Transaction
Follow-up-transfer: KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%balance_of (sp.record(requests =...)
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3] at time [timestamp(0)] to KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H
| Requests | Callback | ||||
| sp.contract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance"))), KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some() |
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance"))), KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some()
to sp.contract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance"))), KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some()| Balance | Request | ||||
| 200 |
|
Storage:
| Administrator | All_tokens | Ledger | Metadata | Operators | Paused | Token_metadata | Total_supply | ||||||||||||||||||||||||||||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
|
|
| False |
|
|
Generated Michelson
(Left (Left (Pair {Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" 0} "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%setCash")))
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
[ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "int": "0" } ] } ],
{ "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%setCash" }
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
[ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "int": "0" } ] } ],
{ "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%setCash" }
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%setCash (sp.list([sp.record(r...) (Follow-up-transfer: KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%balance_of (sp.record(requests =...))
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
| Balance | Request | ||||
| 200 |
|
Balance: 0.000000
Operations:
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | CurrentCash | ExpScale | Fa2_TokenAddress | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TokenId | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | True |
Generated Michelson
(Right (Left (Right (Left (Left {Pair (Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" 0) 200})))))
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
[ { "prim": "Pair", "args": [ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "int": "0" } ] }, { "int": "200" } ] } ]
]
}
]
}
]
}
]
}
]
}
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
[ { "prim": "Pair", "args": [ { "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "int": "0" } ] }, { "int": "200" } ] } ]
]
}
]
}
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF%getBorrowRate (sp.record(borrows = ...)
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3] at time [timestamp(0)] to KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF
| Borrows | Cash | Cb | Reserves |
| sp.contract(sp.TNat, KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some() |
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TNat, KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some()
to sp.contract(sp.TNat, KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3).open_some()Storage:
| BorrowRate | SupplyRate |
Generated Michelson
(Left (Left (Pair (Pair 0 200) (Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%doAccrueInterest" 0))))
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "200" } ] },
{ "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%doAccrueInterest" }, { "int": "0" } ] }
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "200" } ] },
{ "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%doAccrueInterest" }, { "int": "0" } ] }
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3%doAccrueInterest (840000000000) (Follow-up-transfer: KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF%getBorrowRate (sp.record(borrows = ...))Balance: 0.000000
()Transaction [OK] by [KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
Balance: 0.000000
Operations:
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | CurrentCash | ExpScale | Fa2_TokenAddress | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TokenId | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | True |
Generated Michelson
(Left (Left (Right (Right (Left 840000000000)))))
{
"prim": "Left",
"args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "int": "840000000000" } ] } ] } ] } ] } ]
}
"prim": "Left",
"args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "int": "840000000000" } ] } ] } ] } ] } ]
}
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1
KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
Balance: 0.000000
Operations:
Storage:
| Borrow_allowed | Mint_allowed | Redeem_allowed | Repay_borrow_allowed |
| True | True | True | True |
Generated Michelson
(Right (Right (Right (Right (Right "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3")))))
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" } ] } ] } ] } ]
}
]
}
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" } ] } ] } ] } ]
}
]
}
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1
tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi
Balance: 0.000000
Operations:
Storage:
| Borrow_allowed | Mint_allowed | Redeem_allowed | Repay_borrow_allowed |
| True | True | True | True |
Generated Michelson
(Right (Right (Right (Right (Left "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi")))))
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" } ] } ] } ] } ]
}
]
}
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" } ] } ] } ] } ]
}
]
}
Multiple operationsBalance: 0.000000
()
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1).open_some()
to sp.contract(sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1).open_some()| CToken | Borrower | BorrowAmount |
| KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3 | tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi |
Transfer 0.000000 to sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some()
to sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some()| From_ | Txs | ||||||
| KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3 |
|
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | CurrentCash | ExpScale | Fa2_TokenAddress | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TokenId | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | False |
Generated Michelson
(Left (Left (Right (Left (Left 10)))))
{ "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "prim": "Left", "args": [ { "int": "10" } ] } ] } ] } ] } ] }
Transaction
Follow-up-transfer: KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1%borrowAllowed (sp.record(cToken = s...)
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3] at time [timestamp(0)] to KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1
| CToken | Borrower | BorrowAmount |
| KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3 | tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi |
Balance: 0.000000
Operations:
Storage:
| Borrow_allowed | Mint_allowed | Redeem_allowed | Repay_borrow_allowed |
| True | True | True | True |
Generated Michelson
(Left (Left (Left (Right (Left (Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" (Pair "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" 10)))))))
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
{ "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" },
{ "prim": "Pair", "args": [ { "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" }, { "int": "10" } ] }
]
}
]
}
]
}
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
{ "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" },
{ "prim": "Pair", "args": [ { "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" }, { "int": "10" } ] }
]
}
]
}
]
}
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%transfer (sp.list([sp.record(f...)
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3] at time [timestamp(0)] to KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H
| From_ | Txs | ||||||
| KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3 |
|
Balance: 0.000000
Operations:
Storage:
| Administrator | All_tokens | Ledger | Metadata | Operators | Paused | Token_metadata | Total_supply | ||||||||||||||||||||||||||||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
|
|
| False |
|
|
Generated Michelson
(Right (Right (Left {Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" {Pair "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" (Pair 0 10)}})))
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
[
{
"prim": "Pair",
"args": [
{ "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" },
[ { "prim": "Pair", "args": [ { "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "10" } ] } ] } ]
]
}
]
]
}
]
}
]
}
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
[
{
"prim": "Pair",
"args": [
{ "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" },
[ { "prim": "Pair", "args": [ { "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "10" } ] } ] } ]
]
}
]
]
}
]
}
]
}
Check verifySweepFA12
With underlying token and correct id
Reverted transaction
Balance: 0.000000
()
Transaction
Transaction [KO] by [tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
| Amount | Id | TokenAddress |
| KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H |
Balance: 0.000000
Error:
Wrong condition:
Message: 'CT_SWEEP_UNDERLYING'
Message: 'CT_SWEEP_UNDERLYING'
Generated Michelson
(Right (Right (Left (Right (Right (Right (Pair 10 (Pair 0 "KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H"))))))))
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{ "prim": "Pair", "args": [ { "int": "10" }, { "prim": "Pair", "args": [ { "int": "0" }, { "string": "KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H" } ] } ] }
]
}
]
}
]
}
]
}
]
}
]
}
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{ "prim": "Pair", "args": [ { "int": "10" }, { "prim": "Pair", "args": [ { "int": "0" }, { "string": "KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H" } ] } ] }
]
}
]
}
]
}
]
}
]
}
]
}
With underlying token and wrong id
Transaction
Transaction [OK] by [tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5] at time [timestamp(0)] to KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H
| Address | Amount | Metadata | Token_id | ||||||||
| KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3 |
|
Balance: 0.000000
Operations:
Storage:
| Administrator | All_tokens | Ledger | Metadata | Operators | Paused | Token_metadata | Total_supply | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
|
|
| False |
|
|
Generated Michelson
(Left (Right (Left (Pair (Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" 30) (Pair {Elt "decimals" 0x32; Elt "name" 0x54686520546f6b656e205a65726f; Elt "symbol" 0x544b30} 1)))))
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "int": "30" } ] },
{
"prim": "Pair",
"args": [
[
{ "prim": "Elt", "args": [ { "string": "decimals" }, { "bytes": "32" } ] },
{ "prim": "Elt", "args": [ { "string": "name" }, { "bytes": "54686520546f6b656e205a65726f" } ] },
{ "prim": "Elt", "args": [ { "string": "symbol" }, { "bytes": "544b30" } ] }
],
{ "int": "1" }
]
}
]
}
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" }, { "int": "30" } ] },
{
"prim": "Pair",
"args": [
[
{ "prim": "Elt", "args": [ { "string": "decimals" }, { "bytes": "32" } ] },
{ "prim": "Elt", "args": [ { "string": "name" }, { "bytes": "54686520546f6b656e205a65726f" } ] },
{ "prim": "Elt", "args": [ { "string": "symbol" }, { "bytes": "544b30" } ] }
],
{ "int": "1" }
]
}
]
}
]
}
]
}
]
}
Multiple operations
Balance: 0.000000
()
Transaction
Transaction [OK] by [tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
| Amount | Id | TokenAddress |
| KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H |
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some()
to sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some()| From_ | Txs | ||||||
| KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3 |
|
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | CurrentCash | ExpScale | Fa2_TokenAddress | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TokenId | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | False |
Generated Michelson
(Right (Right (Left (Right (Right (Right (Pair 10 (Pair 1 "KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H"))))))))
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{ "prim": "Pair", "args": [ { "int": "10" }, { "prim": "Pair", "args": [ { "int": "1" }, { "string": "KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H" } ] } ] }
]
}
]
}
]
}
]
}
]
}
]
}
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{ "prim": "Pair", "args": [ { "int": "10" }, { "prim": "Pair", "args": [ { "int": "1" }, { "string": "KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H" } ] } ] }
]
}
]
}
]
}
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%transfer (sp.list([sp.record(f...)
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3] at time [timestamp(0)] to KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H
| From_ | Txs | ||||||
| KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3 |
|
Balance: 0.000000
Operations:
Storage:
| Administrator | All_tokens | Ledger | Metadata | Operators | Paused | Token_metadata | Total_supply | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
|
|
| False |
|
|
Generated Michelson
(Right (Right (Left {Pair "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" {Pair "tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5" (Pair 1 10)}})))
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
[
{
"prim": "Pair",
"args": [
{ "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" },
[ { "prim": "Pair", "args": [ { "string": "tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5" }, { "prim": "Pair", "args": [ { "int": "1" }, { "int": "10" } ] } ] } ]
]
}
]
]
}
]
}
]
}
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
[
{
"prim": "Pair",
"args": [
{ "string": "KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3" },
[ { "prim": "Pair", "args": [ { "string": "tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5" }, { "prim": "Pair", "args": [ { "int": "1" }, { "int": "10" } ] } ] } ]
]
}
]
]
}
]
}
]
}
With random token
Transaction
Transaction [OK] by [tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5] at time [timestamp(0)] to KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3
| Amount | Id | TokenAddress |
| KT10 |
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), KT10).open_some()
to sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), KT10).open_some()| From_ | Txs | ||||||
| KT1Tezooo4zzSmartPyzzSTATiCzzzyPVdv3 |
|
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | CurrentCash | ExpScale | Fa2_TokenAddress | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TokenId | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | False |
Generated Michelson
(Right (Right (Left (Right (Right (Right (Pair 10 (Pair 0 "KT10"))))))))
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{ "prim": "Right", "args": [ { "prim": "Pair", "args": [ { "int": "10" }, { "prim": "Pair", "args": [ { "int": "0" }, { "string": "KT10" } ] } ] } ] }
]
}
]
}
]
}
]
}
]
}
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{ "prim": "Right", "args": [ { "prim": "Pair", "args": [ { "int": "10" }, { "prim": "Pair", "args": [ { "int": "0" }, { "string": "KT10" } ] } ] } ] }
]
}
]
}
]
}
]
}
]
}